Вопрос Кнопка сворачивания окна

[ShTeCvV]

Как добавить кнопку сворачивания окна?

 

[sergey3695]

Это на сворачивание

SendMessage(WizardForm.Handle,$0112,61472,0);

а что там дальше, какая кнопка, я хз.

 

[Ekspoint]

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

[ Code]
var
  NewButton1: TNewButton;
procedure MINIcon(Sender: TObject); forward;
procedure RedesignWizardForm;
begin
  NewButton1 := TNewButton.Create(WizardForm);
  with NewButton1 do
  begin
    Parent := WizardForm;
    Left := ScaleX(16);
    Top := ScaleY(325);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Свернуть';
    OnClick := @MINIcon;
  end;
end;
procedure MINIcon(Sender: TObject);
begin
SendMessage(WizardForm.Handle,$0112,61472,0);
end;
procedure InitializeWizard;
begin
  RedesignWizardForm;
end;