怎样捕捉窗口被大小化的事件？

[thinking_man]

当窗口的大小化按纽被按下后，做一些处理？

[darkness]

form's onresize event

procedure TForm1.FormResize(Sender: TObject);
begin

end;

[softdoctor]

FormResize

[chenlibo]

如果窗体是程序主窗体则在Application的OnMinimize和OnRestore中触发；
如果是程序的其中一个窗体则在窗体的OnResize、OnActive和OnDeActive事件中触发，在触发的时候需要判断窗体的状态，如当窗体刚创建时会先后触发OnActive、OnResize事件，这时就需要在事件中自己来判断。

[Lin]

我理解你的意思，是想捕捉窗口被最大(小)化的事件，FormResize虽然行，但都是执行完后才发生，如想自己控制最好重载WndProc函数，过滤WM_SYSCOMMAND消息或者重载WM_GETMINMAXINFO消息：
protected
procedure WndProc(var Message: TMessage); Override;
procedure WMGetMinMaxInfo(var mmi: TGetMinMaxInfo); message WM_GETMINMAXINFO;
...

procedure TfrmMain.WndProc(var Message: TMessage);
begin
case Message.Msg of
WM_SYSCOMMAND:
case Message.WParam of
SC_MAXIMIZE: //最大化
//Do something
...
SC_MINIMIZE: //最小化
//Do something
...
else Inherited;
end;
else Inherited;
end;
end;