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;