Mehrere Steuerelemente gleichzeitig ansprechen ...

[psd-sign]

Ich habe in einem Formular 8 Steuerlemente gleichen Typs ... (z.B. TShape)

wie bekomme ich es hin, dass ich einmal alle Steuerlemente in eine "Menge" packe, sodass ich die Menge dieser Steuerelemente ansprechen kann? Ganz praktisch:
1 Click & Alle Steuerelemente bekommen die Farbe clRed ...

Muss ich mit Array arbeiten? Oder bin ich auf dem Holzweg?

[DeddyH]

Array, TObjectList, mit FindComponent() durchgehen... wobei ich die beiden erstgenannten Möglichkeiten besser finde.

[psd-sign]

Zitat von DeddyH:

Array, TObjectList, mit FindComponent() durchgehen... wobei ich die beiden erstgenannten Möglichkeiten besser finde.

DANKEEEEE!!!!

Hier der Code:

Delphi-Quellcode:

procedure TForm1.TBinChange(Sender: TObject);
var
//Datentyp aus der 'Contnrs' ... erstellt eine Menge
//aus Steuerelementen (Ein Array mit Index 0,1,...,x)
Dioden: TObjectList;
i: Integer;

begin
//Eine Objektliste aus den Shapes S1,..,S8 erstellen,
//damit alle gleichzeitig angesprochen werden können.
Dioden:=TObjectList.Create;
Dioden.Add(S1);
Dioden.Add(S2);
Dioden.Add(S3);
Dioden.Add(S4);
Dioden.Add(S5);
Dioden.Add(S6);
Dioden.Add(S7);
Dioden.Add(S8);
If length(TBin.Text)>8 then
begin
  for i:=0 to 7 do
  begin
    (Dioden.Items[i] as TShape).enabled:=false;
    (Dioden.Items[i] as TShape).Brush.Color:=clblack;
  end;
end
else
begin
  for i:=0 to 7 do
  begin
    (Dioden.Items[i] as TShape).enabled:=true;
    //Zuweisung der Farben
  end;
end;
end;

[toms]

...und wo gibst du die TObjectList wieder frei

[psd-sign]

Zitat von toms:

...und wo gibst du die TObjectList wieder frei

freigeben? Wozu?

[DeddyH]

Damit keine Speicherlecks entstehen.

[DeddyH]

Es ging uns auch nicht um die Objekte, sondern die Liste an sich.

[edit] Na toll, löscht der während meines Postings einfach seinen Beitrag, nachher heißt es, ich würde pushen [/edit]

[SirThornberry]

Sorry, da hab ich nach dem Absenden mitbekommen das ich müll geschrieben habe und es gar nicht um die Objekte sondern die Objektliste ging. In meiner Hoffnung das es noch niemand gesehen hat, hab ich es dann schnell gelöscht *Schande über mich*

Achja, Pushen ist erst nach 24 Stunden erwünscht

[SirTwist]

Guten Morgen,

Zitat von toms:

...und wo gibst du die TObjectList wieder frei

Wozu eigentlich eine TObjectList und keine simple TList?

Gruß,
SirTwist

[DeddyH]

Wenn er Objekte ablegen will, wieso soll er keine TObjectList nehmen?