Hallo,
ich erzeuge sehr viele komponenten zu laufzeit das mache ich so:
Delphi-Quellcode:
procedure Add_PlaylistPanel(Caption:String;L,T:Integer; ScrollBox:TJvscrollbox);
var
panel:TJvCaptionPanel;
sp:TJvBitBtn;
clb:TJvCheckListBox;
str:String;
begin
Form1.Show;
// panel hinzufügen
panel:=TJvCaptionPanel.Create(Form1);
Panel.left:=l; Panel.Top:=t;
Panel.Width:=129; Panel.Height:=298;
Panel.Parent:=Scrollbox;
panel.Visible:=True;
Panel.CaptionPosition:=dpTop;
Panel.Caption:=caption;
str:=IntTostr(form1.JvPageControl1.PageCount)+IntTostr(ScrollBox.ControlCount-1);
Panel.tag:=StrToInt(str);
panel.name:='Panel'+str;
....
und jeztt möchte ich die komponenten löschen und zwar über einen button der dieser komonente gehört.
Jedes mal wenn ich es tuen möchte gibt es eine fehlermeldung:
Abstackter Fehler
löschen wollte ich es so:
Delphi-Quellcode:
procedure TForm2.PanelFree(Sender:Tobject);
var
test:TWinControl;
begin
(Sender as TWinControl).Parent.parent:=nil;
(Sender as TWinControl).Parent.Free;
// test.free;
end;
Für lösungen währe ich dankbar !