[Gnom_aka_Lexander]

Я неуверен что подобное можно сделать в иннго. »

В инно можно все!
Ну, или почти все А чего нельзя, но очень хочется, то все равно можно.

читать дальше »

Код:

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
  Cancel := True;
end;

procedure NewButtonClick(Sender: TObject);
begin
  case TNewButton(Sender).Tag of
    0: MsgBox('Вы нажали кнопку 1',mbInformation,MB_OK);
    1: MsgBox('Вы нажали кнопку 2',mbInformation,MB_OK);
    2: MsgBox('Вы нажали кнопку 3',mbInformation,MB_OK);
    3: MsgBox('Вы нажали кнопку 4',mbInformation,MB_OK);
    4: MsgBox('Вы нажали кнопку 5',mbInformation,MB_OK);
    5: MsgBox('Вы нажали кнопку 6',mbInformation,MB_OK);
    6: MsgBox('Вы нажали кнопку 7',mbInformation,MB_OK);
    7: WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
  end;
end;

procedure InitializeWizard();
Var
  i:Integer;
begin
  with WizardForm do
  begin
    AutoScroll := False;
    ClientHeight := ScaleY(260);
    ClientWidth := ScaleX(190);

    Bevel.Hide;
    OuterNotebook.Hide;
    NextButton.Hide;
    
    for i:=0 to 7 do
    begin
      with TNewButton.Create(WizardForm) do
      begin
        Parent := WizardForm;
        SetBounds(ScaleX(10),ScaleY(10+i*30),ScaleX(170),ScaleY(25));
          case i of
            0: Caption := 'Кнопка 1';
            1: Caption := 'Кнопка 2';
            2: Caption := 'Кнопка 3';
            3: Caption := 'Кнопка 4';
            4: Caption := 'Кнопка 5';
            5: Caption := 'Кнопка 6';
            6: Caption := 'Кнопка 7';
            7: Caption := 'Выход';
          end;
        OnClick := @NewButtonClick;
        Tag := i;
      end;
    end;
  end;
end;