habe ich versucht:
1. kam eine fehlermeldung vom complier das
Zitat:
[Fehler] Unit1.pas(332): E2010 Inkompatible Typen: 'TWinControl' und 'TControl'
dann habe ich das geändert oben dann ging das complieren.
2. die Laufzeit fehlermeldung kommt immer noch mit deinem code... wenn ich es so mache:
Delphi-Quellcode:
procedure TForm1.PanelFree(Sender:Tobject);
var
test:TWinControl;
MenuItem:TMenuItem;
i:Integer;
begin
test:=TJvCaptionPanel((Sender as TWinControl).Parent);
TMenuItem(form1.FindComponent('MenuItem' +InTTostr(test.tag))).Destroy;
form1.ActiveControl:=niL;
for i:=test.ControlCount-1 downto 0 do begin
if test.Controls[i] <> NIL then begin
test.RemoveControl(test.Controls[i]);
end;
end;
test.free;
end;
kommt keine fehlermeldung !
und die komponente ist auch weg, naja ich kann sie nicht mehr mit FindComponent finden...