![]() |
Re: Mehrere Objekte Ansprechen:Beispiel Buttons !
Zitat:
bei onCreate einmalig per FindCompo ins array/liste und danach einfach das array (bzw. die liste) durchlaufen .. evtl. auch erst im onCreate erstellen (dann natürlich gleich "im array erstellen") |
Re: Mehrere Objekte Ansprechen:Beispiel Buttons !
kann man den buttonnamen nicht als array definnieren??? probiers gleich mal aus
|
Re: Mehrere Objekte Ansprechen:Beispiel Buttons !
Zitat:
mfg Christian |
Re: Mehrere Objekte Ansprechen:Beispiel Buttons !
Falls das deine einzigen Buttons auf der Form sind kannst du das auch so machen:
Delphi-Quellcode:
Aber das Array ist glaube ich schneller.
for i:=0 to form1.ComponentCount -1 do
begin if form1.Components[i] is TButton then // mach etwas mit TButton(form1.Components[i]).Caption end; Zitat:
Zitat:
Aber man kann ja ein Ziel haben. :-D |
Re: Mehrere Objekte Ansprechen:Beispiel Buttons !
Ich habe noch eine komplexe Frage,ich hoffe ich nerve euch nicht,denn die Fragen
quälen mich schon seit langem und ich arbeite gerade an einem Projekt,für welches ich diese Erkenntisse brauche. +++++ Ich weiß jetzt wie ich Strings in Componentennamen umsetze(Findcomponent) aber wie mache ich es andersrum? Konkretes Beispiel: Ich habe 3 Buttons,button1,button2,button3.Wie kann ich beim Klick auf einen der Buttons dessen Namen in einem Label ausgeben und zwar wenn ich es nicht konkret sonder abstrakt per Abfrage des Senders mache? :o :?: :| Etwa in der Art:
Delphi-Quellcode:
var a:string;
begin a:=String(Sender as Tbutton); label1.caption:=a; |
Re: Mehrere Objekte Ansprechen:Beispiel Buttons !
Zitat:
Delphi-Quellcode:
If (Sender is TButton) then
a := (Sender as TButton).Name; |
Re: Mehrere Objekte Ansprechen:Beispiel Buttons !
Vielen Dank.
Ich hab übrigens gedacht es ist von Vorteil,wenn ich mehrere Fragen zu einem Komplex in einen Thread mache. :mrgreen: |
Re: Mehrere Objekte Ansprechen:Beispiel Buttons !
hmm ist aber ungewöhnlich übrigens kannst du das mit dem nerven wieder vergessen, da die dp tag ein tag aus ganz allein von leuten lebt die frragen haben und anderen Leuten die darauf antworten können
|
Re: Mehrere Objekte Ansprechen:Beispiel Buttons !
Zitat:
Delphi-Quellcode:
Gruß
label1.caption := TButton(Sender).Name;
Matthias |
Re: Mehrere Objekte Ansprechen:Beispiel Buttons !
Delphi-Quellcode:
Uwe
procedure TForm1.Button1Click(Sender: TObject);
begin if (Sender is TButton) then Label1.Caption := (Sender as TButton).Name; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:41 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz