Feststellen ob eine Komponente vorhanden ist?

[Chemiker]

Hallo SirThornberry und oki,

Danke für die Tipps. Habe übersehen, dass ich TChar auf einem Panel erstelle und dadurch nicht mehr Form1 der Inhaber von TChart ist, sondern das Panel. Mit FindComponent wird jetzt auch nur auf dem Panel gesucht.

Delphi-Quellcode:

for I := 0 to MessStellenLst.Count - 1 do 
   begin 
     if TChart(ChartPanel.FindComponent('c'+TMSV1(MessStellenLst.Objects[i]).MaNr))=Nil then
     begin 
       MessChart:= TChart.Create(ChartPanel);
       if not(Assigned(TChart(ChartPanel.FindComponent('c'+TMSV1(MessStellenLst.Objects[i]).MaNr)))) then
       begin 
         DiaErstellen(ChartPanel,MessChart,TMSV1(MessStellenLst.Objects[i]).MaNr, 
                     (TMSV1(MessStellenLst.Objects[i]).MaBez));
       end;
     end; 
   end;

Es scheint so, dass nun alle TCharts erstellt werden.

Bis bald Chemiker