问题-MethodAddress返回NIL？MethodAddress与published的关系？

问题现象：有位朋友（397085381）在Q群里问“为什么书上的可以访问，而自己写的代码访问时为nil”

问题原因：因为要用“Self.MethodAddress('Test')”访问，方法必须放在“published”下。

问题处理：增加“published”就好了。

解答人员：541011510、316405484、397085381。

实例代码：

 unit Unit2;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;

 type
   TTest = procedure of object;
   TForm2 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
   published//使用MethodAddress必须定义在发布区的方法
     procedure Test;
     { Public declarations }
   end;

 var
   Form2: TForm2;

 implementation

 {$R *.dfm}

 procedure TForm2.Button1Click(Sender: TObject);
 var
   oP: TMethod;
   otest: Ttest;
 begin
   oP.Data := Pointer(Self);
   op.Code := Self.MethodAddress('Test');//使用MethodAddress必须定义在published(发布区)的方法
 //  op.Code := @TForm2.test; //什么方法都可以返回地址
   if Assigned(op.Code) then
   begin
     otest := Ttest(op);
     otest;
   end;
 end;

 procedure TForm2.Test;
 begin
   ShowMessage('Test');
 end;

 end.