[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Code]
var
Button1, Button2, Button3: TButton;
procedure OnClick(Sender: TObject);
begin
Case Sender of
Button1: WizardForm.WelcomePage.Show;
Button2: WizardForm.SelectDirPage.Show;
Button3: WizardForm.SelectProgramGroupPage.Show;
end;
end;
procedure InitializeWizard;
begin
with WizardForm do begin
Position:=poScreenCenter;
ClientHeight:=344;
Color:=clGray;
NextButton.Width:=0;
BackButton.Width:=0;
CancelButton.Width:=0;
end;
Button1:=TButton.Create(WizardForm);
with Button1 do begin
Setbounds(105, 320, 130, 22);
Parent:=WizardForm;
Caption:='Страница wpWelcome';
OnClick:=@OnClick;
end;
Button2:=TButton.Create(WizardForm);
with Button2 do begin
Setbounds(235, 320, 130, 22);
Parent:=WizardForm;
Caption:='Страница wpSelectDir';
OnClick:=@OnClick;
end;
Button3:=TButton.Create(WizardForm);
with Button3 do begin
Setbounds(365, 320, 130, 22);
Parent:=WizardForm;
Caption:='Страница wpSelectGroup';
OnClick:=@OnClick;
end;
end;