procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
procedure TForm2.WMSysCommand(var Message: TMessage);
begin
if (Message.WParam = SC_ICON)
then Application.Minimize
else inherited;
end;
本文介绍了一个简单的窗口消息处理过程,特别是WM_SYSCommand消息的处理方式。当接收到SC_ICON参数时,应用程序会最小化;其他情况下则继承默认行为。
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
procedure TForm2.WMSysCommand(var Message: TMessage);
begin
if (Message.WParam = SC_ICON)
then Application.Minimize
else inherited;
end;

被折叠的 条评论
为什么被折叠?