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

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

Аватара для R.i.m.s.k.y.

Ветеран


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

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


Johny777, через NextButtonClick не пройдет?
Код: Выделить весь код
function NextButtonClick(CurPageID:integer): Boolean;
begin
  Result:= True; 
  if (CurPageID = твоя тсраница) then begin
       if (проверка чекбоксов) then  Result := False;
      end      
      else Result := True;
    end; //if (CurPageID = твоя тсраница)
end;
или делаешь чекалку кликов свой страницы и добавляешь в ней
WizardForm.NextButton.Enabled:= False else WizardForm.NextButton.Enabled:= True;
вот к примеру у меня на списке компонентов:
Код: Выделить весь код
procedure ComponentOnClick(Sender: TObject);
begin
  if CheckComponents = '' then WizardForm.NextButton.Enabled:= False else WizardForm.NextButton.Enabled:= True;
  WizardForm.ComponentsList.Repaint;
end;

procedure InitializeWizard();
...
WizardForm.ComponentsList.OnClick := @ComponentOnClick;

-------
Хороший установщик тот, которого не замечаешь
Оформление в инно пустая трата времени: толку мало, головняка много, а ошибок истчо больше!

Это сообщение посчитали полезным следующие участники:

Отправлено: 18:41, 03-05-2012 | #1815