Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Button zur Lauzeit erstellen


SpeedyGTD - Sa 21.09.02 14:46
Titel: Button zur Lauzeit erstellen
Hallo ich weiss das es irgendwo im Forum schon das Thema gibt, konnte es aber nicht finden :? , ich hab gestern über ne Stunde sowohl den VCL als auch den Non-Vcl Thread manuel und mit hilfe der suchen funktion durchsucht, fand aber nix. also jetzt nochmal mein prob, ich will zur Lauzeit ein paar buttons, Timer und Formulare erzeugen. ich weiss das das alles mit dem gleichen code geht, aber irgendwie komme ich nicht weiter :lol: also bitte helft mir :lol:


Delete - Sa 21.09.02 15:00


Quelltext
1:
2:
3:
4:
5:
6:
var
  MyButton: TButton;
begin
  MyButton := TButton.Create;
  MyButton.Parent := Form1;
  ...


Rest aus der Hilfe holen.


SpeedyGTD - Sa 21.09.02 17:13

danke :D das geht jetzt schonmal, wie kann ich jetzt aber auf den button zugreifen, ein button ohne funktion ist ja nicht wirklich sinnvoll :lol:


Delete - Sa 21.09.02 17:36

Du brauchst eine eigene Prozedur für das "OnClick"-Ereignis des Buttons. Dann hat er seine Funktion. :)

Quelltext
1:
2:
3:
4:
5:
6:
MyButton.OnClick := KlickMich;

procedure TForm1.KlickMich(Sender: TObject);
begin
  ShowMessage('Geklickt');
end;