Methode als Component Event

Sind Methoden nicht global oder in Klassen, können sie nicht direkt als Event (zB OnClock Methode) genutzt werden.

Workaround:
procedure MyClick(Sender: TObject);
begin
//...
end;

var
M: TMethod;
begin
M.Data := nil;
M.Code := @MyClick;
MyMenuItem.OnClick := TNotifyEvent(M);
end;

Schreibe einen Kommentar