onClick behandlung für dynamisch erzeugte objekte

[mirage228]

Alternativ geht es auch noch so

Delphi-Quellcode:

procedure Test(Self: TObject; Sender: TObject);
begin
  ShowMessage('!!');
end;

procedure TMyClass.AProc;
var
  FProc: TNotifyEvent;
begin
  TMethod(FProc).Code := @Test;
  TMethod(FProc).Data := Self;
end;

FProc darf jedoch keine Property sein!

mfG
mirage228