Panels alle gleichfarbig machen

[oki]

Zitat von mkinzler:

Abgesehen davon, stimmt die obere Grenze wieder nicht.

Sorry,
  for j:=0 to ScrollBox1.ComponentCount - do begin @MrKnogge: dann aber so

Delphi-Quellcode:

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

Zitat von Hawkeye219:

Hallo,

du mußt die Methode FindComponent des Owners deiner Panels aufrufen. Ist dies wirklich das Formular?

Ich denke das auf jeden Fall!

Delphi-Quellcode:

  for j:=0 to ScrollBox1.ComponentCount - do begin
    if ScrollBox1.Components[j] is TPanel then begin
      (ScrollBox1.Components[j] as TPanel).Color:=clBtnFace;
    end;
  end;

Zitat von Hawkeye219:

HNoch einfacher wäre es, beim Erzeugen der Panels die Referenzen in einer Liste oder einem dynamischen Array abzulegen. Damit ersparst du dir die aufwendige Suche mittels FindComponent.

Und genau das ist die Eigenschaft Components.

Gruß