Panels alle gleichfarbig machen

[MrKnogge]

Zitat von oki:

@MrKnogge: dann aber so

Delphi-Quellcode:

with TPanel(FindComponent(P + IntToStr(i+1))) do
        Color:=clBtnFace;

Da hat mich wohl einer bei copy & paste erwischt.

Was das array angeht, er meint wenn du deine Panels so deklarieren würdest:

P[1..20]: array pf TPanel: Könntest du sie geütlich in einer Schlaife durchlaufen um die Farbe zu ändern.

Delphi-Quellcode:

for i := 0 to 19 do
  P[i+1].Color := ...