[原创]DIY自己的AllocateHWnd函数解决方案

[原创]DIY自己的AllocateHWnd函数
Classes单元的AllocateHWnd函数是需要传入一个处理消息的类的方法的作为参数的，原型：

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;

[解决办法]
我的帖子被删了？
[解决办法]
我也很少用的谢谢分享学习一下

[解决办法]
厉害啊
[解决办法]

探讨

看来没几个人用这个函数？

[解决办法]
通常我是直接在使用 AllocateHWnd 的类中写一个 protected 的函数。
所以，没有这方面的困扰。
不过，还是很有学习价值。
[解决办法]

探讨

哥要结贴了，童鞋们，200分啊！

[解决办法]
呵呵，支招原创
向原创致谢
[解决办法]
楼主高淫，多分享下
[解决办法]

[解决办法]
继续帮楼主顶顶
谢谢楼主奉献精神
接分

[解决办法]
学习努力中
努力学习中

查看更多 下一篇