Hallo,

ich habe 20 Panels in einer ScrollBox. Die Panels haben alle verschiedene Farben. Jetzt möchte ich die Panels alle in der selben Farbe haben. Damit ich nicht jedes Panel einzeln ansprechen muss, habe ich mir folgendes überlegt.

markieren

Delphi-Quellcode:

for j:=0 to Form1.ComponentCount do
  begin
    p:=FindComponent('P' + IntToStr(j + 1)) as TPanel;
    if p is TPanel then
      begin
        p.Color:=clBtnFace;
      end;
  end;

Leider funktioniert es mal wieder nicht. Was habe ich falsch gemacht??? Die Panels erzeuge ich Dynamisch und gebe den Panels auch bei der erzeugung Namen. Die Panels heißen P1, P2, ..., P20

Vielen Dank im vorraus

MFG Christian18

Hi,

markieren

Delphi-Quellcode:

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

ich bin mir jetzt nur nicht ganz sicher, ob du nicht in ScrollBox.Components suchen mußt.

Gruß oki

Hast Du evtl. XP-Theming für deine Anwendung aktiv. Dort gelten andere Spielregeln.

Abgesehen davon, stimmt die obere Grenze wieder nicht.

Das sollte funktionieren:

markieren

Delphi-Quellcode:

for j:=0 to 19 do // das -1 bitte nicht vergessen
  with TPanel(FindComponent(P + IntToStr(i+1))) do
        p.Color:=clBtnFace;

Gruß

Hallo,

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

Noch 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.

Gruß Hawkeye

Zitat von mkinzler:

Abgesehen davon, stimmt die obere Grenze wieder nicht.

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

markieren

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!

markieren

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ß

Er meint, das du einen eigenen Array anlegen sollst.

Zitat von oki:

@MrKnogge: dann aber so

markieren

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.

markieren

Delphi-Quellcode:

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

Hi,

ich habe gerade noch eine andere Idee,

auf meinen Panels habe ich Images!!! Ist es möglich zu erkennen aus welchen Panel das Image drauf liegt???