vielen dank noch mal es hat funktiniert.. ich habe das jetzt so gemacht:
Delphi-Quellcode:
procedure TForm2.PanelFree(Sender:Tobject);
var
test:TWinControl;
MenuItem:TMenuItem;
i:Integer;
begin
test:=TJvCaptionPanel((Sender as TWinControl).Parent);
form1.ActiveControl:=niL;
for i:=test.ControlCount-1 downto 0 do begin
if test.Controls[i] <> NIL then
test.RemoveControl(test.Controls[i]);
end;
test.free;
end;
als erstens gebe ich den focus weg bzw. setzte den auf NIL
ich lösche erst alle komponenten die zurlaufzeit erstellt wurden sind.
Danach lösche ich das panel selbst.
scheint zu klappen...