截取wm_syscommand消息
procedure aaa(var msg:tmessage);message wm_syscommandprocedure tform1.aaa(var msg:tmessage)
begin
if msg.wparam<>sc_maximize then
inherited;
end;
procedure aaa(var msg:tmessage);message wm_syscommandprocedure tform1.aaa(var msg:tmessage)
begin
if msg.wparam<>sc_maximize then
inherited;
end;
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
{...}
procedure TForm1.WMSysCommand(var Message: TMessage);
begin
if Message.WParam = SC_MAXIMIZE then
Message.Result :=0
else
inherited;
{...}
end;