Mehrere Steuerelemente gleichzeitig ansprechen ...

[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;