Event handler won't assign!?

[FusionWolf]

Hi! I was wondering why...




type
TMyEvent = procedure(Sender: TObject) of object;

TBaseClass = class
private
fOnClick: TMyEvent;
public
property OnClick: TMyEvent read fOnClick write fOnClick;
end;

{$M+}
TDescentClass = class(TBaseClass)
private
fClicked: Boolean;
public
constructor Create;
published
procedure DoClick(Sender: TObject);
end;
{$M-}

implementation


constructor TDescentClass.Create;
begin
fClicked := False;
Onclick := DoClick(Self);
end;

procedure TDescentClass.DoClick(Sender: TObject);
begin
Sender.fClicked := True;
end;


... this doesn't compile!?! It says: [DCC Error] Test.pas(312): E2010 Incompatible types: 'TMyEvent' and 'procedure, untyped pointer or untyped parameter'...

...and colors with red the line where I try to assign published method to object variable.

If I change the Create method like this:


constructor TDescentClass.Create;
var
Method: TMethod;
begin
fClicked := False;
Method.Data := Pointer(Self);
Method.Code := MethodAddress('DoClick');
Onclick := TMyEvent(Method);
end;


Then it compiles fine and method works perfectly!!

Where might be a problem? Why I cannot assign object method to event handler?

[User137]

Try changing
Onclick := DoClick(Self);
into
Onclick := DoClick;

You are supposed to pass a pointer to procedure, not result of procedure (functions give results, procedures even don't).

[FusionWolf]

Yes, that works! Thanks User137!! ;)

The solution was so obvious. Maybe I had too much continous coding on behind because I didn't see it myself.

Thanks again anyway even that the other solution was also fine for me. :)