Dynamische Procedur-Zuordnung

[sniper_w]

Zitat von xaromz:

Hallo,

Du musst den Ereignissen Methoden einer Klasse übergeben. Sonst fehlt die "Self"-Referenz.

Gruß
xaromz

Nicht unbedingt.

Delphi-Quellcode:

procedure Klick;
begin
  Form1.Caption := 'ha!';
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  m:TMethod;
begin
  m.Code := @Klick;
  m.Data := Self;
  Button1.OnClick := TNotifyEvent(m);
end;

Aber das ist keine Lösung die man braucht. Man SOLLTE den Ereignissen Methoden einer Klasse übergeben.