深入delphi编程理解之消息（四）使用TWMSysCommand结构体的WM_SysCommand消息应用

　　通过以下实例拦截窗体WM_SysCommand消息，我们可以获取到很多有趣的数据。

      一、程序界面

　　二、程序代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
  private
    { Private declarations }
    procedure MyWMSysCommand(var AMessage: TWMSysCommand); message WM_SysCommand;
  public
    { Public declarations }
  end; var Form1: TForm1; implementation {$R *.dfm} procedure Tform1.MyWMSysCommand(var AMessage: TWMSysCommand); var str: string; begin case AMessage.CmdType of //可能通过查找TWMSysCommand结构体查找wParam以下参数  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; ListBox1.Items.Add(str); ListBox1.Items.Add(Format('X:%dY:%2d', [AMessage.XPos, AMessage.YPos])); ListBox1.Perform(WM_VSCROLL, SB_BOTTOM, 0); //移动到VScroll到底部，保证新加入的文字总是可见。可以通过查找 TWMScroll结构体查找第二个参数SB_XXXX inherited; //注释这个一行，窗口将无法关闭 end; end.