Mehrere Objekte Ansprechen:Beispiel Buttons !

[TeronG]

Zitat:

Zitat von Cöster

dann musst du wohl doch Findcomponent nehmen, allerdings nur einmal um in den Array einzulesen. Alternative wär halt alles einzeln zu machen.

jup .. So mach ich das auch i.d.r.
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")

[dino]

kann man den buttonnamen nicht als array definnieren??? probiers gleich mal aus

[r2c2]

Zitat:

Zitat von dino

kann man den buttonnamen nicht als array definnieren??? probiers gleich mal aus

Nö, geht nicht, aber man kann die Buttons per Code erstellen...

mfg

Christian

[Alexander Roth]

Falls das deine einzigen Buttons auf der Form sind kannst du das auch so machen:

Delphi-Quellcode:

    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;

Aber das Array ist glaube ich schneller.

Zitat:

Zitat von Semikolon

Freut mich hier zu sein,bei euch Pros. :-D

Zitat:

Zitat von 3_of_8

Nebenbei: Die wenigsten hier sind Pros. Ich zum Beispiel bin keiner. ;)

Ebenso.
Aber man kann ja ein Ziel haben. :-D

[Semikolon]

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;

[Phoenix]

Zitat:

Zitat von Semikolon

Ich habe noch eine komplexe Frage

Eigentlich gilt bei uns: Neue Frage -> Neuer Thread. Dennoch kurz hier die Antwort. Bei der nächsten Frage aber bitte wieder einen neuen Thread aufmachen, oki?

Delphi-Quellcode:

If (Sender is TButton) then
   a := (Sender as TButton).Name;

[Semikolon]

Vielen Dank.

Ich hab übrigens gedacht es ist von Vorteil,wenn ich mehrere Fragen zu einem Komplex in einen Thread mache. :mrgreen:

[dino]

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

[mbamler]

Zitat:

Zitat von Semikolon

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;

ungefähr so:

Delphi-Quellcode:

label1.caption := TButton(Sender).Name;

Gruß
Matthias

[uwewo]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   if (Sender is TButton) then
      Label1.Caption := (Sender as TButton).Name;
end;

Uwe