Delphi使用普通类对象创建接受window消息(使用Classes.AllocateHWnd为对象创建一个尺寸为0的窗口,从而有了Handle)good

Posted 朝闻道

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Delphi使用普通类对象创建接受window消息(使用Classes.AllocateHWnd为对象创建一个尺寸为0的窗口,从而有了Handle)good相关的知识,希望对你有一定的参考价值。

在delphi中,有时候我们希望对象可以接收windows消息,怎么办呢?因为要接收windows消息起码要有windows Handle,难道要建立的一个可见窗口?那样似乎太差强人意了。delphi提供了一个函数Classes.AllocateHWnd。分析AllocateHWND发现delphi CreateWindowEx一个尺寸为0的窗口,窗口是生成了,Handle也有了,但窗口的消息要处理吧,否则怎么说让对象接收Windows消息呢,但我们都知道类函数和Windows消息处理函数是不一样的,类函数的地址应该是Self+函数的偏移。这个delphi也帮我们处理好了,在AllocateHWnd内部将我们传入的对象函数通过MakeObjectInstance转换为普通函数,然后我们就可以在对象内部处理Windows消息了。

 

简写代码如下:

TMyHandleWinMessage = class

private

    FWinHandle: HWND;

    procedure WndProc(var Msg: TMessage);

public

    constructor Create;

    destructor Destroy; override;

end;

 

Create 实现:

   FWinHandle = Classes.AllocateHWnd(WndProc);

 

Destroy实现:

  if FWinHandle <> 0 then  Classes.DeallocateHWnd(FWinHandle);  // 必须释放系统核心对象

 

WndProc实现:

在这里处理你感兴趣的消息,否则交给Windows处理。

With Msg do

  if Msg = XXX then  // 你打算处理的消息

  begin

      //

  end

  else

     Result := DefWindowProc(FWinHandle, Msg, wParam, lParam);

 

http://blog.csdn.net/shandiantianying/article/details/9786425

以上是关于Delphi使用普通类对象创建接受window消息(使用Classes.AllocateHWnd为对象创建一个尺寸为0的窗口,从而有了Handle)good的主要内容,如果未能解决你的问题,请参考以下文章

深入delphi编程理解之消息WINDOWS原生窗口编写及消息处理过程

delphi 如何用消息发送一个记录

Delphi中JSon SuperObject 使用:数据集与JSON对象互转

怎么让一个非窗口组件可以接受来自Windows的消息

Delphi中window消息截获的实现方式

Delphi面向对象设计的经验原则(61条)