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