Hallo Zusammen...
Ich habe Probleme bei der Parent Zuweisung mittels FindComponent.
Programmiere ich es "manuell" wird das Label Kennzeichnung oben mittig in den ProgressBar dargestellt.
In der Schleife mit FindComponent verschwindet es...
Kann mir einer sagen wo mein Fehler ist?
Grüße aus dem Sauerland…
Peter
Delphi-Quellcode:
for i := 1 to 21 do begin
with (FindComponent('Kennzeichnung' + IntToStr(i)) as TLabel)do
begin
Parent := (FindComponent('ProgressBar' + IntToStr(i)) as TProgressBar );
Alignment := tacenter;
Layout := tltop;
Align := alClient;
Font.Style := [fsBold];
Font.Color := clblue;
Font.Size:=20;
end;
end;