Panels alle gleichfarbig machen

[Christian18]

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.

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

[oki]

Hi,

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

[Bernhard Geyer]

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

[mkinzler]

Abgesehen davon, stimmt die obere Grenze wieder nicht.

[MrKnogge]

Das sollte funktionieren:

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ß

[Hawkeye219]

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

[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ß

[mkinzler]

Er meint, das du einen eigenen Array anlegen sollst.

[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 := ...

[Christian18]

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???