Farben mehrerer Panels Ändern

[Gehstock]

Versuche das grad so was zu einer Exeption führt

Delphi-Quellcode:

procedure TEditor.ObenAlleAnClick(Sender: TObject);
var
I : Integer;
begin
 For I := 2 to 10 do
  Begin
   TPanel(I).Color := CLBlack;
  End;
end;

[Gehstock]

hat sich erledigt

Delphi-Quellcode:

procedure TEditor.ObenAlleAnClick(Sender: TObject);
var
I : Integer;
begin
 For I := 2 to 10 do
  Begin
   TPanel(FindComponent('Panel' + IntToStr(I))).Color := clBlack;
  End;
end;

[Gehstock]

Delphi-Quellcode:

Procedure TEditor.PanelClick(Sender: TObject);
Begin
 with Sender as TPanel do
  begin
   case Tag of
    2..10,12..20,22..30:
                        Begin
                         if TPanel(FindComponent('Panel' + InttoStr(Tag))).Color = clBtnFace then
                          TPanel(FindComponent('Panel' + InttoStr(Tag))).Color := clBlack
                         else
                          TPanel(FindComponent('Panel' + InttoStr(Tag))).Color := clBtnFace;
                        End;
   end;
  end;
 End;

ich will Eine Procedur für 27 Panels nutzen aber wieder der fehler mit der Exeption

[mr_emre_d]

:glaskugel: Fehlerbeschreibung?

:spin:

EDIT:
Ich vermute, dass du nur die Farbe des angeklickten Panels swappen(zb blau<->rot) willst.
Wenn dies der Fall ist, dann reicht es schon aus, den Sender statt FindComponent()
zu verwenden!

Dazu würde ich einfach ne Procedure ~PanelsClick(Sender: TObject); definieren
und beim Programmstart allen Panels -> OnClick via Findcomponent die zuvor
definierte Procedure zuweisen.

[Gehstock]

Die Markierten Panels sollen auf OnClick Schwarz werden bzw. wenn schon aktiviert wieder Grau

[Gehstock]

Danke das wars

[_frank_]

findcomponent zu verwenden und ohne das Objekt vor dem Zugriff zu prüfen ist sehr gefährlich...

Gruß Frank