Событие сворачивание формы

[KoBRaAndrey]

Нужно чтобы если свернули форму делать что-то))) Как отловить сворачивание?

[Lemo]

procedure TForm1.FormActivate(Sender: TObject);
begin
if ShowWindow(form1.Handle,SW_MINIMIZE)  then
 ShowMessage('gg');
end;

[KoBRaAndrey]

При старте написало, а когда сворачивал 0 реакции

[Shouldercannon]

...
type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;
...
procedure TForm1.WMSysCommand;
begin
if Msg.CmdType = SC_MINIMIZE
  then
    {Сдесь делаем что нужно}
    ShowMessage('Попытка свернуть форму')
      else
        inherited;
end;
...

[Lemo]

Ну это же не то, так как не происходит сворачивания формы...

[FaTaL]

Ну так Вы сами опишите процедуру сворачивания.

[Kotofff]

Сообщение от Lemo

Ну это же не то, так как не происходит сворачивания формы...

Просто inherited - т.е. продолжить обработку стандартными средствами - не надо прятать в условие ...

Примерно так :

procedure TForm1.WMSysCommand;
begin
  if Msg.CmdType = SC_MINIMIZE
    then
    begin
    {Сдесь делаем что нужно}
    ShowMessage('Попытка свернуть форму');
    end;
  inherited; // обрабатывать далее по-умолчанию
end;
...

[KoBRaAndrey]

Kotofff спасибо, работает