자기에 대한 포인터, 어떻게?

Question

type 
    TMyClass = class 
    type 
    PMyClass = ^TMyClass; 
    TMyEvent = procedure(Sender: PmyClass) of object; 
    public 
    FTest: TMyEvent; 
    procedure Test; 
    end; 

procedure TMyClass.Test; 
begin 
    FTest(@Self); //error! 
end; 

어떻게하면됩니까?

Answer 1

당신은 무엇을하려고합니까? 물론 TMyEvent을 아직 할당하지 않았으므로 FTest으로 전화 할 수 없습니다! 그리고 PMyClass과 TMyEvent은 실제로 TMyClass의 일부가되어야합니까?

은 적어도이 완벽하게 작동합니다 : 물론

type 
    PMyClass = ^TMyClass; 
    TMyClass = class; 

    TMyEvent = procedure(Sender: PMyClass) of object; 

    TMyClass = class 
    private 
    FEvent: TMyEvent; 
    FSomeValue: string; 
    public 
    property OnSomething: TMyEvent read FEvent write FEvent; 
    property SomeValue: string read FSomeValue write FSomeValue; 
    procedure Test; 
    end; 

    TSomeOtherClass = class 
    public 
    class procedure MyEvent(Sender: PMyClass); 
    end; 

... 

procedure TForm6.FormCreate(Sender: TObject); 
var 
    o: TMyClass; 
begin 

    o := TMyClass.Create; 
    o.SomeValue := 'This is a test.'; 
    o.OnSomething := TSomeOtherClass.MyEvent; 

    o.Test; 
end; 

{ TMyClass } 

procedure TMyClass.Test; 
begin 
    FEvent(@Self); 
end; 

{ TSomeOtherClass } 

class procedure TSomeOtherClass.MyEvent(Sender: PMyClass); 
begin 
    ShowMessage(TMyClass(Sender^).SomeValue); 
end; 

, 당신은 같은 객체의 TMyEvent을 가질 수

type 
    TMyClass = class 
    private type 
    PMyClass = ^TMyClass; 
    TMyEvent = procedure(Sender: PMyClass) of object; 
    private 
    FEvent: TMyEvent; 
    FSomeValue: string; 
    public 
    procedure TheEventHandler(Sender: PMyClass); 
    property OnSomething: TMyEvent read FEvent write FEvent; 
    property SomeValue: string read FSomeValue write FSomeValue; 
    procedure Test; 
    end; 

... 

procedure TForm6.FormCreate(Sender: TObject); 
var 
    o: TMyClass; 
begin 

    o := TMyClass.Create; 
    o.SomeValue := 'This is a test.'; 
    o.OnSomething := o.TheEventHandler; 

    o.Test; 
end; 

{ TMyClass } 

procedure TMyClass.Test; 
begin 
    FEvent(@Self); 
end; 

procedure TMyClass.TheEventHandler(Sender: PMyClass); 
begin 
    ShowMessage(TMyClass(Sender^).SomeValue); 
end;