Delpi使用对象创建接受window消息
来源:互联网 发布:懒人支架 知乎 编辑:程序博客网 时间:2024/06/03 11:20
在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);
- Delpi使用对象创建接受window消息
- android broadcastreceiver 重复创建和无法接受消息问题
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Window 消息大全使用详解
- Objective-C语法之异常处理
- poj-2942-点双联通
- PHP mktime获取时间戳的一个黑色幽默
- ubuntu12.04lts SVN服务器构建
- jdk与jre
- Delpi使用对象创建接受window消息
- 展讯8810中LCD 在uboot和Kernel中的基本流程
- python 中 单引号、双引号和三双引号的区别
- 图片异步加载
- POJ 1061 青蛙的约会
- IE8提示JS错误(KB927917)终极解决方法
- UTF-8编码解析
- How to read Android crash log and stack trace
- mysql中where+if判断