學習 Message(19): WM_SYSCOMMAND 訊息[三] : WParam 參數

TMessage.WParam 就是 TWMSysCommand.CmdType; 這是系統命令編號.

下面程式會把 WParam 攔截, 並顯示的表單標題.

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)  protected    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMSysCommand(var Message: TWMSysCommand);var  str: string;begin  case Message.CmdType of    SC_SIZE         : str := 'SIZE         ';    SC_MOVE         : str := 'MOVE         ';    SC_MINIMIZE     : str := 'MINIMIZE     ';    SC_MAXIMIZE     : str := 'MAXIMIZE     ';    SC_NEXTWINDOW   : str := 'NEXTWINDOW   ';    SC_PREVWINDOW   : str := 'PREVWINDOW   ';    SC_CLOSE        : str := 'CLOSE        ';    SC_VSCROLL      : str := 'VSCROLL      ';    SC_HSCROLL      : str := 'HSCROLL      ';    SC_MOUSEMENU    : str := 'MOUSEMENU    ';    SC_KEYMENU      : str := 'KEYMENU      ';    SC_ARRANGE      : str := 'ARRANGE      ';    SC_RESTORE      : str := 'RESTORE      ';    SC_TASKLIST     : str := 'TASKLIST     ';    SC_SCREENSAVE   : str := 'SCREENSAVE   ';    SC_HOTKEY       : str := 'HOTKEY       ';    SC_DEFAULT      : str := 'DEFAULT      ';    SC_MONITORPOWER : str := 'MONITORPOWER ';    SC_CONTEXTHELP  : str := 'CONTEXTHELP  ';    SC_SEPARATOR    : str := 'SEPARATOR    ';    61441: str := '拖動左邊框    ';    61442: str := '拖動右邊框    ';    61443: str := '拖動上邊框    ';    61444: str := '拖動左上方    ';    61445: str := '拖動右上方    ';    61446: str := '拖動下邊框    ';    61447: str := '拖動左下角    ';    61448: str := '拖動右下角    ';    61458: str := '拖動標題列    ';    61558: str := '橫向捲軸滾動';    61574: str := '雙擊橫向捲軸';    61575: str := '縱向捲軸滾動';    61559: str := '雙擊縱向捲軸';    61587: str := '點擊最小化表徵圖';    61490: str := '在非最大化時雙擊標題列';    61730: str := '在最大化時雙擊標題列';  end;  if str = '' then str := IntToStr(Message.CmdType);  Text := str;  inherited;end;end.