1. 程式人生 > >捕捉窗體的最小化、最大化、還原訊息

捕捉窗體的最小化、最大化、還原訊息

procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; //在Public部分宣告

procedure TForm1.WMSysCommand;
begin
if (Msg.CmdType = SC_MINIMIZE) then
begin
//最小化訊息
end
else
if (Msg.CmdType = SC_MAXIMIZE) then
begin
//最大化訊息
end
else
if (Msg.CmdType = SC_RESTORE) then
begin
//還原訊息
end;
DefaultHandler(Msg);//預設處理
end;