Когда надо свернуть форму...

[Slash]

Какое Events отвечает за свёртывание формы?

[_SERGEYX_]

Application.Minimize

[Квэнди]

procedure getminimize(var msg: TWmSysCommand); message WM_SYSCOMMAND;
procedure getminimizеe(var msg: tmessage); message WM_WINDOWPOSCHANGED;

procedure tfstart.getminimize(var msg: TWmSysCommand);
begin
inherited;
case (msg.CmdType and $FFF0) of
SC_MINIMIZE: begin
end;
SC_RESTORE : begin

end;
end;
end;
procedure tfstart.getminimizеe(var msg: tmessage);
begin
inherited;
if msg.LParam=1244240 then
begin
end;
end;

что- то где- то так
1244240 не пугайтесь, просто не помню название константы

[Ring0Sn]

Если форма одна то все проше:
Переопределяем событие Application.OnMinimize
например так :

  
 TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure OnMiz(sender: tobject);
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.OnMiz(sender: tobject);
var
  i: byte;
begin
  if (Sender is TApplication) then
    Messagebox(0, 'ok', 'свернуто', 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize:= OnMiz;
end;

[Tokolist]

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

Какое Events отвечает за свёртывание формы?

1. WM_SYSCOMMAND + SC_MINIMIZE
2. WM_SIZE + SIZE_MINIMIZED
3. Application.OnMinimize

зависит от ТЗ

[Slash]

Всем спасибо - всё работает