ZUfälliges Panel aufleuchten lassen

[Relicted]

Delphi-Quellcode:

randomize;
zahl := random( 15 ) + 1;

for i := 0 to ComponentCount - 1 do
begin
  if Components[i] is TPanel then
  begin
    if zahl > 1 then
      dec( zahl )
    else
    begin
      (Components[i] as TPanel).Color := clRed;
      Sleep(1000);
      (Components[i] as TPanel).Color := clGreen;
    end;
  end;
end;

ist mal ungetestet mal eben nebenher... vielleicht auch fehlerbehaftet aber damit könnte man etwas anfangen. lesen, verstehen, testen... Achtung: nicht zum copy pasten geeignet sondern nur ein denkansatz


gruß
reli

edit:

oder mit ( findcomponent( 'Panel'+IntToStr(Random(15)+1)) as TPanel ).Color := clBrabelschneck; versuchen... syntax habe ich gerade nicht im kopf ... aber zum selber arbeiten sollte es reichen