截獲標題列按鈕事件

標籤：os   ar   for   cti   on   c   size   r   res   

改寫 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;

截獲標題列按鈕事件