DIY自己的AllocateHWnd函数

Classes单元的AllocateHWnd函数是需要传入一个处理消息的类的方法的作为参数的,原型:

function AllocateHWnd(Method: TWndMethod): HWND;
 
很多时候,我们想要创建一个窗口,而又不想因为这个参数而创建一个类,怎么办?
换句话说,就是能不能使传入的参数是个普通的函数而不是类的方法呢?答案是肯定的!
看看TWndMethod的声明:
 

type
TWndMethod = procedure(var Message: TMessage) of object;

实际上类的方法在执行时,总是传入了对象这个参数。
即此方法共传了两个参数,根据Delphi默认的registry调用约定,寄存器eax传递对象,edx传递Message结构变量。

因此我们可以声明处理消息的函数的类型:

type
TMyWndProc = procedure(AObject: TObject; var Message: TMessage);

我们自定义MyAllocateHWnd函数以接收这个类型的参数,内部调用AllocateHWnd:

function MyAllocateHWnd(Proc: TMyWndProc): HWND;
asm
  push //AObject
  push Proc//Message
  call AllocateHWnd
end;

ps:如果直接调用AllocateHwnd(Proc)是不能通过编译的!

//调用示例:

var H: HWND;

procedure MyWndProc(AObject: TObject; var Message: TMessage);
begin
if Message.Msg = WM_USER + 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 + , , )
end;
上一篇:ip地址转化代码实例


下一篇:老男孩python学习自修第十七天【装饰器】