Mehrere Panel gleichzeitig färben

[ASM]

Zitat von DeddyH:

... in meinen Augen ist die eigene Verwaltung über ein Array/eine Liste sowieso die beste Lösung, da man dort gezielt Panels aufnehmen bzw. ausschließen kann.

Das ist zweifelsohne die flexibelste Lösung.

Zitat:

Kommt halt darauf an, was genau gewollt ist.

Genau. Wo der Vorteil liegt, hängt von der jeweiligen konkreten Situation ab. Da LittleTee geschrieben hat, nur "alle Panels gleichzeitig" (um)färben zu wollen, wäre speziell hierfür der Weg über "Components[i] is TPanel" sicherlich doch der einfachste und programmtechnisch schnellste, um ans geforderte Ziel zu kommen. Und da nach seinem Beispiel unterschiedliche Farben nicht gezielt, sondern einfach nur variabel auf die Panels verteilt sein sollen, ginge das dann - leicht erweitert - auch so:

Code:

const MaxColors = 8;  // z.B. oder aber mehr oder weniger
Var  fcolor:  Array [1..maxcolors] of integer =(clBlue, clYellow, clRed, clMaroon, clGreen, clNavy, clLime, clFuchsia);

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i:= 0 to ComponentCount - 1 do
   if (Components[i] is TPanel) then (Components[i] as TPanel).color:=fColor[random(maxcolors)+1];
end;