[delphi] 让AllocateHwnd接受一般函数地址作参数
来源:互联网 发布:游戏爆率算法 编辑:程序博客网 时间:2024/06/14 04:59
Classes单元的AllocateHWnd函数是需要传入一个处理消息的类的方法的作为参数的,原型:
很多时候,我们想要创建一个窗口,而又不想因为这个参数而创建一个类,怎么办?
换句话说,就是能不能使传入的参数是个普通的函数而不是类的方法呢?答案是肯定的!
看看TWndMethod的声明:
实际上类的方法在执行时,总是传入了对象这个参数。
即此方法共传了两个参数,根据Delphi默认的registry调用约定,寄存器eax传递对象,edx传递Message结构变量。
因此我们可以声明处理消息的函数的类型:
我们自定义MyAllocateHWnd函数以接收这个类型的参数,内部调用AllocateHWnd:
ps:如果直接调用AllocateHwnd(Proc)是不能通过编译的!
//调用示例:
- Delphi(Pascal) code
- function AllocateHWnd(Method: TWndMethod): HWND;
很多时候,我们想要创建一个窗口,而又不想因为这个参数而创建一个类,怎么办?
换句话说,就是能不能使传入的参数是个普通的函数而不是类的方法呢?答案是肯定的!
看看TWndMethod的声明:
- Delphi(Pascal) code
- type TWndMethod = procedure(var Message: TMessage) of object;
实际上类的方法在执行时,总是传入了对象这个参数。
即此方法共传了两个参数,根据Delphi默认的registry调用约定,寄存器eax传递对象,edx传递Message结构变量。
因此我们可以声明处理消息的函数的类型:
- Delphi(Pascal) code
- type TMyWndProc = procedure(AObject: TObject; var Message: TMessage);
我们自定义MyAllocateHWnd函数以接收这个类型的参数,内部调用AllocateHWnd:
- Delphi(Pascal) code
- function MyAllocateHWnd(Proc: TMyWndProc): HWND;asm push 0//AObject push Proc//Message call AllocateHWndend;
ps:如果直接调用AllocateHwnd(Proc)是不能通过编译的!
//调用示例:
- Delphi(Pascal) code
- var H: HWND;procedure MyWndProc(AObject: TObject; var Message: TMessage);begin if Message.Msg = WM_USER + 111 then ShowMessage('') else Message.Result := DefWindowProc(H, Message.Msg, Message.WParam, Message.LParam)end;procedure TForm1.FormCreate(Sender: TObject);begin H := MyAllocateHWnd(MyWndProc)end;procedure TForm1.FormDestroy(Sender: TObject);begin DeallocateHWnd(H);end;procedure TForm1.Button1Click(Sender: TObject);begin SendMessage(H, WM_USER + 111, 0, 0)end;
- [delphi] 让AllocateHwnd接受一般函数地址作参数
- 我能否用void** 指针作为参数, 使函数按引用接受一般指针?
- javascript中如何让一个参数的函数接受两个参数
- Delphi 窗体程序接受命令行参数
- 如何让xslt样式表接受参数
- 数组指针作函数参数
- 字符指针作函数参数
- 指针数组作函数参数
- 用指针作函数参数
- 结构体作函数参数
- 二维数组作函数参数
- 二维数组作函数参数
- 关于指针作函数参数
- 二维数组作函数参数
- delphi datasnap 服务器 接受 Post Get 方式的参数
- .Net中让WebService接受Get方式传递参数
- C++: 二维数组作函数参数
- C++:指针作函数参数的情况
- 判断单链表中是否存在环
- 深入学习Python内置数据类型之——字典(Dictionary)
- QTreeView对象如何设置行高(Row Height)?
- Spring的PathMatchingResourcePatternResolver使用classpath*时jar包资源无法匹配BUG
- busybox编译
- [delphi] 让AllocateHwnd接受一般函数地址作参数
- 编译hadoop 有错 'java5.home' is not defined
- 再见腾讯,创业我来了!!!
- 面向对象编程初步
- Java基础10-接口,抽象类以及异常
- tomcat启动报错 java.net.SocketException: select failed
- TCO2012Round1A-2-EllysFractions
- 今天所遇到的问题
- dp跳棋