D7 FindComponent über .tag und Caption

[beanbear6]

Hallo Profis,
ich finde leider keine Lösung - auch nicht in den mir bekannten foren. Ich habe 10 Panels mit den Tags 1 bis 10. Nun möchte ich über einen Zähler (1-10) die Compos (über den tag) finden und dann aber die Caption ändern... Ich krieg das nicht hin.. Wer kann mir helfen? Vielen Dank gleich mal an alle unterstützer.
Beanbear

[Helmi]

Hallo,

du kannst über ComponentCount die einzelnen TPanels suchen und dann dementsprechend darauf zugreifen.

Z. B.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  MyPanel: TPanel;

begin
  for i := 0 to Pred(ComponentCount) do
    If Components[i].ClassName = 'TPanel' then
      begin
        MyPanel := TPanel(Components[i]);

        ShowMessage(Format('Panelname: %s, Tag: %d', [MyPanel.Name, MyPanel.Tag]));
      end;
end;

[beanbear6]

Hi,
äh also i glaub da ist meine Frage nicht ganz rüber gekommen also ich suche mit einem Zähler x von 1 bis 10 die Komponente TPanel über die Eigenschaft .tag. Wenn z.B. Panel mit tag 3 gefunden wurde, dann möchte ich diese Caption ändern...
Gruß Reiner

[Helmi]

Zitat von beanbear6:

Hi,
äh also i glaub da ist meine Frage nicht ganz rüber gekommen also ich suche mit einem Zähler x von 1 bis 10 die Komponente TPanel über die Eigenschaft .tag. Wenn z.B. Panel mit tag 3 gefunden wurde, dann möchte ich diese Caption ändern...

Dann zeig doch mal deinen Code, wenn wir dich falsch verstanden haben

[beanbear6]

Hallo,
ich versuche das mal so darzustellen:

Delphi-Quellcode:

  for x := 1 to 10 do begin
   // If TPanel(Findcomponent('Panel'+IntToStr(x))).Tag = x then 
   // TPanel[x].Caption = 'bla bla';
    end;
  end;

Ich weiß, dass das so nicht geht, es soll nur son Anhaltspunkt sein, wie ich das lösen möchte. Das Problem ist dabei noch, dass sich die Anzahl der Panels eventuell auf 100 erhöhen kann. Wenn ich das mit Case mache muss ich ja 100 cases abfragen oder?
Gruß Reiner

[Helmi]

So etwa?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  Component: TComponent;

begin
  for i := 1 to 10 do
    begin
      Component := Findcomponent('Panel'+ IntToStr(i));

      If Assigned(Component) then
        If Component.ClassType = TPanel then
          If TPanel(Component).Tag = i then
            TPanel(Component).Caption := Format('Ich bin Panel-Nr. %d', [i]);
    end;
end;

oder:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  Component: TComponent;
  TempPanel: TPanel;

begin
  for i := 1 to 10 do
    begin
      Component := Findcomponent('Panel'+ IntToStr(i));

      If Assigned(Component) then
        If Component.ClassType = TPanel then
          begin
            TempPanel := TPanel(Component);

            If TempPanel.Tag = i then
              TempPanel.Caption := Format('Ich bin Panel-Nr. %d', [i]);
          end;
    end;
end;

[beanbear6]

Hi Helmi,

im prinzip gehts, nur macht er das nur beim ersten Panel... (habs mit erstem Beispiel versucht)
Gruß Reiner

[nahpets]

Nach welchen Kriterien sollen denn die Captions geändert werden.

Was bezweckst Du überhaupt mit der Abfrage von Tag und der Änderung der Caption?

'ne Hitliste für ein Spiel?
'ne Liste von (Programm-)Abläufen?

Gib' uns mal eine (möglichst) genaue Beschreibung dessen, was Du umsetzen möchtest.

Eventuell können wir dann zielgerichtet antworten und nicht nur so ins Blaue, wie so ein Problem eventuell theoretisch gelöst werden könnte.

Statt der Case-Abfrage aus meinen Beispielen oben, könntest Du dort ja auch beliebige If-Abfragen einfügen, Funktionsaufrufe (für was auch immer).

Dashier dürfte relativ nahe an Deine Idee kommen:

Delphi-Quellcode:

var
  myComp : TComponent;
  x      : Integer;
begin
  for x := 1 to 10 do begin
    myComp := Findcomponent(Format('Panel%d',[x]));
    if Assigned(myComp) and (myComp is TPanel) then begin
      TPanel[myComp].Caption = 'bla bla';
    end;
  end; 
end;

Das Beispiel von Helmi müsste funktionieren, ändere es bitte mal so ab:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  Component: TComponent;

begin
  for i := 1 to 10 do
    begin
      Component := Findcomponent('Panel'+ IntToStr(i));

      If Assigned(Component) then
        If Component.ClassType = TPanel then
  ShowMessage(Format('Caption: %s, Name: %s, Tag: %d, i = %d',
  [TPanel(Component).Caption,Component.Name,Component.Tag,i]));
    end;
end;

Und dann überprüfe, ob die Werte von Name und Tag mit dem von Dir Erwarteten übereinstimmen.

[nahpets]

Oder alternativ sowas?
(nur hingedaddelt und nicht getestet)

Delphi-Quellcode:

for i := 0 to ComponentCount - 1 do begin
  if Components[i] is TPanel then begin
    case TPanel(Components[i]).Tag of
      1 : TPanel(Components[i]).Caption := '1';
      2 : TPanel(Components[i]).Caption := '2';
...  
    end;
  end;
end;

oder

Delphi-Quellcode:

for i := 0 to ComponentCount - 1 do begin
  if Components[i] is TPanel then begin
    with Components[i] as TPanel do begin
      case Tag of
        1 : Caption := '1';
        2 : Caption := '2';
... 
      end; 
    end;
  end;
end;