[delphi] windows消息

windows消息的结构

  TMsg = packed record

    hwnd: HWND;//窗口句柄

    message: UINT;//消息标识

    wParam: WPARAM;//

    lParam: LPARAM;//

    time: DWORD;//消息创建的时间

    pt: TPoint;//消息创建时鼠标所在位置

  end;

WM_KEYDOWN,WM_KEYUP, WM_KEYPRESS: KEYPress消息不同之处在于只有对应有ascii码的按键才会产生这个消息

windows消息流程

1.系统中产生事件

2.windows把这个事件翻译成消息，并放入消息队列

3.应用程序从消息队列中接收到这个消息，把它放到TMsg记录中

4.应用程序把消息传递给一个适当的窗口的窗口过程

5.窗口过程响应这个消息并处理

步骤3，4就构成了应用程序的消息循环。

delphi把windows的TMsg记录中的信息映射为TMessage记录：

TMessage = record  Msg: Cardinal;  case Integer of   0:( WParam: LongInt;       LParam: LongInt;       Result: LongInt);   1:( WParamLo: Word;       WParamHi: Word;       LParamLo: Word;       LParamHi: Word;       ResultLo: Word;       ReslutHi: Word);end;

除此之外，delphi为每个windows消息定义了一个特殊的消息记录，方便使用，例如一个鼠标消息：

TWMMoust = record  Msg: Cardinal;  Keys: LongInt;  case: Integer of  0:(XPos, YPos: SamllInt);  1:(Pos: TSmallPoint; Result: LongInt);end;

MessageBeep(): 穷人的调试器

对消息中的Result赋值：

典型的例子是WM_CTLCOLOR，处理这个消息时，windows期望返回一个画刷的句柄，

所以需要在消息处理之后对result赋值

procedure TFrom1.WMCtlColor(var Msg: TWMCtlColor);var  BrushHand: hBrush;begin  inherited;  // todo: 创建一个画刷，放入BrushHand  Msg.Result := BrushHand;end;

Application.OnMessage

OnMessage相应的是从消息队列中检索到的消息，所以SendMessage发送的消息会绕过消息队列，就不会触发OnMessage事件

子类化

用自己的窗口过程代替Application的窗口过程，当在自己的窗口过程处理完成呢过后，把消息再传递给原窗口。这个过程就叫 子类化

1.使用SetWindowLong()来指定与i个新的窗口过程：

  声明：

function NewWndProc(Handle: hWnd; Msg, WParam, LParam: LongInt): Longint; stdcall;

使用

OldWndProc := Pointer(SetWindowLong(Application.Handle, gwl_WndProc, Integer(@NewWndProc)));

来设置。

2.也可以使用Delphi方法来代替上面的NewWndProc

需要使用MakeObjectInstance()来处理一下这个delphi的方法

  NewProc := MakeObjectInstance(self.NewWndProc);  OldWProc := Pointer(SetWindowLong(Application.Handle, GWL_WNDPROC, Integer(NewProc)));

3.HookMainWindow()

这个函数能把一个自定义的消息处理过程插入到TApplication的WndProc方法之前