在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
在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 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论