Komponente suchen und Caption ändern ?

[Delfiano]

Um das überhaupt mit meinem Delphi 7 testen zu können, musste ich entsetzlich viel Müll entfernen.

Hier die Lösung:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
 CNAME, CAP: string;
  i: Integer;
begin
  CNAME := 'pnl';
  CAP := 'LAST CHECK' ;
  for i  := 1 to 4 do
  begin
      if (FindComponent(CNAME+intToStr(i)) as TPanel).caption = '' then
         (FindComponent(CNAME+intToStr(i)) as TPanel).caption := CAP;
  end;
end;

[TKanne]

Moin,

frohes Neues erst einmal.

oder, wenn es etwas flexibler sein soll (bei mir z.B. sind die Panels nicht mimmer nur durchnummeriert):

Code:

procedure TForm1.btn1Click(Sender: TObject);
var
  CAP: string;
  i: Integer;
begin
  CAP := 'LAST CHECK';
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TPanel) and ((Components[i] as TPanel).Caption = '') then
      (Components[i] as TPanel).Caption := CAP;

end;

[EmWieMichael]

Delphi-Quellcode:

if (FindComponent(CNAME+intToStr(i)) as TPanel).caption = '' then
   (FindComponent(CNAME+intToStr(i)) as TPanel).caption := CAP;

Das funktioniert zwar, allerdings ist der zweimalige Aufruf von FindComponent unnötig, nicht sonderlich elegant und wenig effektiv.

[Delfiano]

Gut gebrüllt, Löwe. Dann mach's doch besser.

Ich hab mich nur an der Vorgabe orientiert und
den/die entsprechenden Fehler behoben.

Aber ich will mal nicht so sein:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
 CNAME, CAP: string;
 p: TPanel;
 i: Integer;
begin
  CNAME := 'pnl';
  CAP := 'LAST CHECK' ;
  for i  := 1 to 4 do
  begin
    p:= (FindComponent(CNAME+intToStr(i)) as TPanel);
    if p.caption = '' then p.caption := CAP ;
  end;
end;

[zeras]

Zitat von Delfiano:

Gut gebrüllt, Löwe. Dann mach's doch besser.

Ich hab mich nur an der Vorgabe orientiert und
den/die entsprechenden Fehler behoben.

Aber ich will mal nicht so sein:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
 CNAME, CAP: string;
 p: TPanel;
 i: Integer;
begin
  CNAME := 'pnl';
  CAP := 'LAST CHECK' ;
  for i  := 1 to 4 do
  begin
    p:= (FindComponent(CNAME+intToStr(i)) as TPanel);
    if p.caption = '' then p.caption := CAP ;
  end;
end;

Man sollte aber noch prüfen, ob es das Panel überhaupt gibt und nicht gleich das Caption zuweisen.

[Delfiano]

Zitat:

Man sollte aber noch prüfen, ob es das Panel überhaupt gibt und nicht gleich das Caption zuweisen.

Prinzipiell korrekt. Aber selbst wenn es nicht existiert, also statt z.B 4 ein höherer Wert benutzt wird, kommt es zu keinem Fehler.

Etwas anderes ist viel problematischer. Der Themenersteller möchte ja die Änderungen nicht nur zur Laufzeit, sondern sie sollen dauerhaft übernommen werden.

Das aber ginge auf diese Weise so oder so nicht, sondern es müsste extern zugegriffen werden.

Zwar dürfte das auch nicht allzu schwierig sein, aber soll das ruhig wer anderes lösen.

[Gandimann]

Thanks Friends for your kind help

[haentschman]

Moin...

Zitat:

FindComponent

...was ich daran nicht mag...das "Find". Obwohl es wahrscheinlich zeittechnisch unerheblich ist, das "Find" suggeriert mir eine Suche über die gesamte Menge der Controls. Ich suche aber ungern. Ich stehe eher auf Listen wo nur die "Einträge" drin sind über die gesucht wird.

In diesem Falle wäre das eine TObjectList<TPanel> (dynamisch erzeugte Panels). Diese Liste kannst du immer durchiterieren.

Delphi-Quellcode:

for Panel in PanelList
begin
  // Caption ändern etc.
end;

Wenn du auf ein bestimmtes Panel zugreifen willst würde sich dann auch ein TObjectDicionary<(Key = Integer oder string etc.), TPanel> anbieten.

PS1:

Zitat:

ich mochte gern auf ein Form platzierte mehrere Panels(mehr als 50)

Bei dieser Variante, die scalierbar ist, müssen die Panels dynamisch erzeugt werden und nicht auf die Form geklatscht.

PS2:
Ich würde die Dictionary Variante bevorzugen. Da kann man auch das Panel in eine Klasse packen die dann zusätzliche Informationen hat. Position im Panel "Array"...oder so. So nach dem Motto: Gib mir das Panel von Reihe 2, Spalte 4.