Abfragen von Komponenten Eigenschaften

[praktiker]

Hi, bin durch einen Bruch des Schlüsselbeins lädiert, deswegen nur
kurz einen Ansatz

Beispiel: Formular mit drei labeln, namen label1,label2,label3

Delphi-Quellcode:

procedure teasy.test;
VAR fcomp:tcomponent;
begin
  fcomp:=findcomponent([color=#ff0000]'label2'[/color]);
  if (fcomp <> nil) then 
  begin
   (fcomp as Tlabel).color:=clred; // Farbe invers auf rot
   (fcomp as Tlabel).text:=[color=#ff0000]'Neuer text'[/color]; // und anderer text
  end;
end;

Wenn du das mal austestest, und verstanden hast, ist es ein leichtes für dich, deinen Quelltext funktionell zu ändern.
hoffe geholfen zu haben

[edit=Daniel B]Delphi-Tags eingefügt und Code ausgerichtet. MfG Daniel B.[/edit]