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ß