TProcedure，TMethod，TNotifyEvent，TWndMethod的区别，并模拟点击按钮后发生的动作

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

忽然发现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;