Sampron
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[_Code]
var
CheckBox: TCheckBox;
procedure InitializeWizard();
begin
CheckBox:=TCheckBox.Create(WizardForm);
CheckBox.SetBounds(170,250,200,17)
CheckBox.Caption:='Выборочная установка'
CheckBox.Checked:=True
CheckBox.Parent:=WizardForm.WelcomePage
end;
procedure CurPageChanged(CurPageID: Integer);
begin
if not CheckBox.Checked then
case CurPageID of
wpPassword, wpInfoBefore, wpUserInfo, wpSelectDir,
wpSelectComponents, wpSelectProgramGroup, wpSelectTasks,
wpReady, wpPreparing, wpInstalling, wpInfoAfter, wpFinished:
WizardForm.NextButton.OnClick(nil)
end
end;
|
