delphi捕获消息学习

Question

我老是想要捕获一些自己需要的消息,但是查帮助文档却查不到需要的东西
所以我想求教各位老手怎么在这块进行学习.....
比如我使用下面两句:procedure mysyscommond(var msg: Twmsyscommand);message wm_syscommand;
   procedure WM_SYSCOMMAND(var Msg: TMessage);message WM_SYSCOMMAND;
我想看下Twmsyscommand和TMessage的区别,查帮助文挡都看不到,
各位大哥帮忙指点个方向,这块怎么学习......!!!!
谢谢了!!!

Answer 1

msdn或delphi自带的windows sdk 

Answer 2

我的理解是，一样的。
只不过，TMessage是Delphi封装的消息而已。

Answer 3

可是我在delphi自带的windows sdk 中没找到wm_syscommand
你们开始学习这块的时候是怎么摸索的

Answer 4

MSDN里面有。   
MSDN + Delphi自己的帮助，你就很清楚了。

Answer 5

打开delphi，在Messages单元里有wm_syscommand定义：
  WM_SYSCOMMAND       = $0112;

Answer 6

  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;  TMessage = packed record
    Msg: Cardinal;
    case Integer of
      0: (
        WParam: Longint;
        LParam: Longint;
        Result: Longint);
      1: (
        WParamLo: Word;
        WParamHi: Word;
        LParamLo: Word;
        LParamHi: Word;
        ResultLo: Word;
        ResultHi: Word);
  end;

Answer 7

由上面的定义可以看出, 其实,下面两种消息响应函数的定义,都是正确的,
procedure mysyscommond(var msg: Twmsyscommand);message wm_syscommand; 
procedure WM_SYSCOMMAND(var Msg: TMessage);message WM_SYSCOMMAND; 只是delphi为了让你更方面的访问msg这个结构体中的各个域(结构成员),这里特别对wm_syscommand这个消息的结构做了定义,也就是TWMSysCommand.

Answer 8

hehe ,我这人是很想把分给散掉的,可是今天却让我有些为难啊