Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Johny777

Ветеран


Сообщения: 649
Благодарности: 444

Профиль | Отправить PM | Цитировать


R.i.m.s.k.y.,
сделал так
Код: Выделить весь код
procedure Enable(Sender: TObject);
begin
  WizardForm.NextButton.Enabled := hl2_A_CheckBox.Checked or ep1_A_CheckBox.Checked or ep2_A_CheckBox.Checked or portal_A_CheckBox.Checked or hl2_SAVE_CheckBox.Checked or ep1_SAVE_CheckBox.Checked or ep2_SAVE_CheckBox.Checked or portal_SAVE_CheckBox.Checked;
end;
а каждому из 6 чекбоксов приписал OnClick :=@Enable;
Тк например ep2_SAVE_CheckBox.Checked всё равно что True, как и все остальные

кнопка далее упорно не хотела блокироваться в InitializeWizard, зато так работает:
Код: Выделить весь код
procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID=wpSelectDir then
  begin
    WizardForm.NextButton.Enabled := false;
  end;
end;
хотя все страницы выключены(какие были - "приветствия" и "готовности"). То бишь это (wpSelectDir) первая страница.

Последний раз редактировалось Johny777, 03-05-2012 в 20:22.


Отправлено: 20:14, 03-05-2012 | #1816