Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Mehrere EditFelder zusammenfassen.


majolo - Fr 28.06.02 17:40
Titel: Mehrere EditFelder zusammenfassen.
Ich habe ein Problem bzw. eher eine Frage. In meinem Programm kann den EditFeldern eine Farbe zugewiesen werden. Nun möchte ich aber nicht immer
Edit1.Font.Color := .........
Edit2.Font.Color := ........
Edit3.Font.Color := ........
usw.
schreiben sondern das Ganze zusammenfassen. Also Beispiel
Edit[1...3].Font.color := Farbe

Mein Beispiel funzt nicht, ist auch nur ein nicht funktionierendes Beispiel.
Aber ist so etwas möglich? Ist eine Idee, die ich bisher noch nicht hatte.
Danke im vorraus.
majolo 8)


Tino - Fr 28.06.02 17:51

Versuch es mal so:

Quelltext
1:
2:
3:
For Idx := 1 To 10 Do
  IF Assigned (FindComponent ('Edit' + IntToStr (Idx))) Then
    tEdit (FindComponent ('Edit' + IntToStr (Idx))).Font.Color := clBlack;


Gruß


majolo - Fr 28.06.02 18:10

Ich kriege die Fehlermeldung Undeclared identifier: 'Idx'
Wie definiere ich IDX?
Gruß Marcus


Marc - Fr 28.06.02 18:11

majolo hat folgendes geschrieben:
Wie definiere ich IDX?



Quelltext
1:
2:
Var
  Idx: Integer;


Gruß Marc


Alibi - Fr 28.06.02 18:12

Wie jetzt? Ist doch eine ganz normale Integer Variable.


majolo - Fr 28.06.02 18:13

Okay IDX als Integer.Die Farbe ändert sich zwar noch nicht, aber ich werde noch was probieren.
Majolo


Tino - Fr 28.06.02 18:15

Die Edit-Felder müssen natürlich so benannt sein wie in Deinem Beispiel oben (Edit1, Edit2, Edit3, ...)


majolo - Fr 28.06.02 18:15

@Marc: Schon Okay. Habe ich gepennt. Fernsehen und programmieren klappt halt doch nicht immer.
Trotzdem Danke

PS: In dem Moment, wo du gepostet hast, hab ichs auch rausgefunden


majolo - Fr 28.06.02 18:18

Danke Tino. Klappt jetzt wunderbar. Ich hatte im Programm die EditFelder anders bezeichnet.
Gruss
majolo