AllocateHWnd函数是如何传入消息的？AllocateHWnd函数的类型:视焦点讯

来源：CSDN 时间：2023-04-07 11:05:33

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

(相关资料图)

functionAllocateHWnd(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 0//AObject

push Proc//Message

call AllocateHWndend;

ps:如果直接调用AllocateHwnd(Proc)是不能通过编译的！//调用示例：

var H: HWND;procedure MyWndProc(AObject: TObject; var Message: TMessage);beginif Message.Msg = WM_USER + 111 thenShowMessage("")elseMessage.Result := DefWindowProc(H, Message.Msg, Message.WParam, Message.LParam)end;procedure TForm1.FormCreate(Sender: TObject);beginH := MyAllocateHWnd(MyWndProc)end;procedure TForm1.FormDestroy(Sender: TObject);beginDeallocateHWnd(H);end;procedure TForm1.Button1Click(Sender: TObject);beginSendMessage(H, WM_USER + 111, 0, 0)end;

标签：

上一篇：【新视野】通信网中常见的普通光缆有哪些？GYTA型光缆的结构及结构
下一篇：最后一页