Einzelnen Beitrag anzeigen

Benutzerbild von Steve
Steve

Registriert seit: 2. Mär 2004
Ort: Würzburg
730 Beiträge
 
Delphi 2006 Personal
 
#2

Re: Button zur Laufzeit erzeugt und wenn Click, dann Form er

  Alt 1. Jun 2004, 16:16
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
Stephan B.
Wer andern eine Grube gräbt ist Bauarbeiter!
Wer im Glashaus sitzt, sollte sich lieber im Dunkeln ausziehen!
Außerdem dieser Satz kein Verb...
  Mit Zitat antworten Zitat