动态创建控件销毁怎么销毁和创建双击事件
我自己动态创建了一些组建，请问怎么销毁和建立一个双击事件,看我代码。
//创建动态组件
procedure GetXYRPos(Ppos:string;x,y:Integer;r:Boolean);
var
aPanel : TPanel;
begin
aPanel := TPanel.Create(nil);
aPanel.Name := 'a'+Ppos;
if r then begin
aPanel.Width := 20;
aPanel.Height := 10;
aPanel.Left := x-10;
aPanel.Top := y-4;
end else begin
aPanel.Width := 10;
aPanel.Height := 20;
aPanel.Left := x-4;
aPanel.Top := y-10;
end;
aPanel.Caption := ' ';
aPanel.Color := clLime;
aPanel.Hint := Ppos;
aPanel.ShowHint := True;
aPanel.AutoSize := False;
aPanel.Ctl3D := True;
//aPanel.OnMouseMove := moveposcursor;
aPanel.Parent := Main.Image1.Parent;
aPanel.Show;
end;
请大家尽量给我贴个代码谢谢
[解决办法]
事件不用销毁,你只要销毁组件就好了
