Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Button an Prozedur weiter geben !
Bergmann89 - Fr 12.05.06 09:15
Titel: Button an Prozedur weiter geben !
Hi,
ich will ein Programm sschreiben, indem ich sehr viele Buttons
habe und wo mehrere eigenschaften des Buttons geändert werden
sollen. und da hab'sch mir überlegt da ne Prozedur zu schreiben.
Weiß aber nicht wie ich das anstellen soll.
Hab mir das so gedacht:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| Procedure ButtonCaption(Capt:String; Sender:TObject);
begin
sender.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ButtonCaption('hallo',Button1);
end; |
so geht es aber nicht.
Kann mir da ma bitte jemand helfen ?
Thx & MfG Bergmann.
alias5000 - Fr 12.05.06 09:18
Wo hängts genau? *Glaskugelsuch*
Bergmann89 - Fr 12.05.06 09:21
HI,
ich kann zwar manche befehle von der Variable Sender benutzen,
wie z.B. Sender.Destroy, da verschwindet dann der Button, aber
es sind ebn nicht die eigenschaften dabei, die ein Button normaler
weiße hatt, iwe z.B. die Caption!
Bergmann89 - Fr 12.05.06 09:23
habs gefunden !!!
ich muss das nicht als TObject deklarieren,
sondern als TButton.
War noch nicht richtig wach. :lol:
Trotzdem Danke für die Hilfe.
MfG Bergmann
alias5000 - Fr 12.05.06 09:24
Klar, weil im Kopf übergibts du ja nur ein
TObject. Um Delphi jetzt zu sagen, dass da ein TButton ankommt, benutze sowas:
Delphi-Quelltext
1:
| (Sender as TButton).Caption := 'Und es geht doch'; |
Um zu überprüfen, ob Sender ein TButton ist, kannst du z.B. das hier verwenden:
Delphi-Quelltext
1:
| if Sender is TButton then ... |
Gruß alias5000
freak4fun - Fr 12.05.06 09:29
Und wie wäre es mit:
Delphi-Quelltext
1:
2:
3:
4:
5:
| procedure TForm1.Button1Click(Sender: TObject);
begin
if (Sender is TButton) then
(Sender as TButton).Caption := 'Ich bin ein Button!';
end; |
MfG
freak
Bergmann89 - Fr 12.05.06 09:32
Is auch ne Idee, da kann ich gleich alle Objekte in
einer Procedure bearbeiten.
Vielen Dank.
Man sieht sich,
Bergmann.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!