Form mit Komponenten wärend laufzeit erzeugen.

[DeddyH]

Auch wenn ich den anderen beiden Recht gebe, hier noch mal etwas ausführlicher, was ich meinte:

Delphi-Quellcode:

type
  TFormBla = class(TForm)
  ...
  procedure TuWas(Sender: TObject);
  ...
end;

...

procedure TFormBla.TuWas(Sender: TObject);
begin
  if (Sender is TControl) then
    ShowMessage(TControl(Sender).Name);
end;

...

MeinButton.OnClick := TuWas;