截获标题栏按钮事件

最新推荐文章于 2020-01-08 14:13:09 发布

丑心疼

最新推荐文章于 2020-01-08 14:13:09 发布

阅读量117

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/spiritofcloud/p/3978315.html

本文详细介绍了Windows消息处理机制中TWMSysCommand类型的使用方法及案例。通过对TWMSysCommand记录类型的解析，展示了如何通过消息处理函数对不同类型的系统命令进行响应。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

改写 procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
消息处理函数。

其中 TWMSysCommand 定义如下：

TWMSysCommand = packed record
Msg: Cardinal;
case CmdType: Longint of
SC_HOTKEY: (
ActivateWnd: HWND);
SC_KEYMENU: (
Key: Word);
SC_CLOSE, SC_HSCROLL, SC_MAXIMIZE, SC_MINIMIZE, SC_MOUSEMENU, SC_MOVE,
SC_NEXTWINDOW, SC_PREVWINDOW, SC_RESTORE, SC_SCREENSAVE, SC_SIZE,
SC_TASKLIST, SC_VSCROLL: (
XPos: Smallint;
YPos: Smallint;
Result: Longint);
end;

例：　
procedure TBrxMainForm.WMSysCommand(var Message: TWMSysCommand);
begin
if (Message.CmdType = SC_CLOSE)
or (Message.CmdType = SC_MINIMIZE)
or (Message.CmdType = SC_MOUSEMENU)
or (Message.CmdType = SC_NEXTWINDOW)
or (Message.CmdType = SC_PREVWINDOW) then
begin
inherited;
end;
...
end;