Einzelnen Beitrag anzeigen

zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.535 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: Komponente suchen und Caption ändern ?

  Alt 1. Jan 2021, 17:03
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.
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat