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]