如果拦截窗体的最小化,最大化,关闭等事件,用拦截win消息的方法.解决方案

如果拦截窗体的最小化,最大化,关闭等事件,用拦截win消息的方法.
如果拦截窗体的最小化,最大化,关闭等事件,用拦截win消息的方法.

[解决办法]
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.WindowProc := Proc;
end;

procedure TForm1.Proc(var Msg: TMessage);
begin
if Msg.Msg = WM_SYSCOMMAND then
begin
if Msg.WParam=SC_MAXIMIZE then
Caption := '最大化了 '
else if Msg.WParam=SC_MINIMIZE then
Caption := '最小化了 ';
end;
WndProc(Msg);
end;