聲明: type ... private Procedure MyMessage(var Msg: TWMSysCommand); message WM_SYSCOMMAND; ... procedure TForm1.myMessage(var Msg: TWMSysCommand); begin if (Msg.CmdType = SC_MINIMIZE) then ...//如果按下最小化按鈕... if (Msg.CmdType = SC_MAXIMIZE) then ...//如果按下最大化按鈕... ... end;
type
...
private
Procedure MyMessage(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
...
procedure TForm1.myMessage(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MINIMIZE) then ...//如果按下最小化按鈕...
if (Msg.CmdType = SC_MAXIMIZE) then ...//如果按下最大化按鈕...
...
end;