Komponente entfernen

[thaflo]

Hallo, Liebe Delphier!

Habe ein Problem.
Ich erstelle Labels zur Laufzeit und weise sie einem Panel zu:

Delphi-Quellcode:

   
procedure TMainForm.smNewClick(Sender: TObject);
var
   loop: Integer;
   tipp: TLabel;
begin
     for loop:=0 to 6 do begin
         tipp:= TLabel.Create(pnTipp); //pnTipp = Panel
         with tipp do begin
              Parent:=pnTipp;
              Color:=clWhite;
              Name:= 'tipp'+IntToStr(loop);
              Caption:='';
              SetBounds((loop*85),30,80,40);
              Tag:=loop;
              OnClick:=tippClick;
         end;
     end;
end;

Das funktioniert auch, die Labels werden erstellt, aber wieso sind diese Labels nicht Komponenten von pnTipp?

Folgendes funktioniert nämlich nicht:

Delphi-Quellcode:

procedure TMainForm.deleteLabels;
begin
     ShowMessage('Vorhandene Labels'+IntToStr(pnTipp.ComponentCount)); //kommt immer 0
     pnTipp.DestroyComponents;
end;

dabei sollten alle labels, die das Panel beinhaltet, gelöscht werden.

vielen dank für hilfen,
florian

[teebee]

Habe Deinen Code mal 1:1 gepastet, funktioniert einwandfrei,
gibt immer 7 aus.

Gruß, teebee

[thaflo]

Danke!
Hab delphi neu gestartet und das Programm neu geladen, jess funktionierts.
seltsam...

florian