Einzelnen Beitrag anzeigen

TKanne

Registriert seit: 6. Aug 2007
Ort: Berlin
21 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Komponente suchen und Caption ändern ?

  Alt 1. Jan 2021, 14:10
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;
  Mit Zitat antworten Zitat