忽然发现TProcedure和TNotifEvent的区别还挺大的：
procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage(IntToStr(SizeOf(TProcedure))); // 4字节 // ShowMessage(IntToStr(SizeOf(function))); // 编译通不过 ShowMessage(IntToStr(SizeOf(TNotifyEvent))); // 8字节 ShowMessage(IntToStr(SizeOf(TMouseEvent))); // 8字节 ShowMessage(IntToStr(SizeOf(TWndMethod))); // 8字节 end;
模拟点击按钮后发生的动作：
----------------------------------------------------------------------------------
其实各种TNotifyEvent，实际上就是TMethod，可随时做强制转换，然后测试TMethod：
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(SizeOf(TMethod))); // 8字节 end; // 其声明位于System.pas中 TMethod = record Code, Data: Pointer; end;
----------------------------------------------------------------------------------
TWndMethod是MakeObjectInstance所用的参数，该函数也是采用了前面类似的方法，不过不同的是，由于这些转换调用是长期的，所以那些动态生成的代码被放到了标识为可执行的动态空间中了，所以在 Win2003 的 DEP 下仍然可以正常工作：
function MakeObjectInstance(Method: TWndMethod): Pointer;
procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(SizeOf(TWndMethod))); // 8字节 end;
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
