Button zur Laufzeit erzeugt und wenn Click, dann Form erzeug

[Steve]

Delphi-Quellcode:

{...}
  TYPE
    TMyButton = Class(TButton)
      PROCEDURE BtnClick(Sender: TObject);  // TNotifyEvent
  END;
{...}

implementation

procedure TForm1.Button1Click(Sender: TObject);
var
  btn : TMyButton;
begin
  btn        := TMyButton.Create(Self);
  btn.Parent := Self;
  btn.Left   := 10;  // Beispiel-
  btn.Top    := 10;  // Werte...
  btn.OnClick := btn.BtnClick; // Ereignisbehandlung zuweisen!
end;

procedure TMyButton.BtnClick(Sender: TObject);  // Ereignisbehandlung
var
  form : TForm;
begin
  form := TForm.Create(Application);
  form.ShowModal;
  form.Free;
end;

Jetzt wird halt durch den Button-Klick ein neuer Button erzeugt (zur Laufzeit, wie gewünscht -g-), dessen OnClick-Behandlung wiederum erzeugt ein modales Fenster
edit: achja, am ende noch irgendwo btn freigeben (free)..

Gruß
Stephan

keine garantie für gar nix