Вопрос Как сделать переход на определённую страницу, не кастомную?

[zettend]

Как сделать переход на определённую страницу?
Страница не кастомная.
Мне нужно сделать кнопку, которая сразу-же кидала на wpSelectProgramGroup(например).

 

[Nemko]

Ну если не кастомная может как-то так "кустарно" подойдет .

[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;

 

[vint56]

Incorrect, Вот еще пример

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
var
  ButtonPage: TButton;
  FlagPage: Boolean;

procedure OnClick(Sender: TObject);
begin
  if FlagPage = False then
  begin
  WizardForm.SelectProgramGroupPage.Show;
  ButtonPage.Caption:= 'GroupPage';
  FlagPage:= True;
  end else begin
  FlagPage:= False;
  WizardForm.WelcomePage.Show;
  ButtonPage.Caption:= 'WellcomePage';
  end;
end;

procedure InitializeWizard;
begin
ButtonPage := TNewButton.Create(WizardForm);
  with ButtonPage do
  begin
    Parent := WizardForm;
    Left := ScaleX(32);
    Top := ScaleY(325);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'ButtonPage';
    OnClick:=@OnClick;
  end;
end;