X xzb_97 Unregistered / Unconfirmed GUEST, unregistred user! 2007-04-04 #1 把其他控件拖拽在在TImage控件上释放就可删除掉这个控件，我在TImage的DragOver中accept：=True，可在TImage的DragDrop中怎么写代码啊？
N nicai_wgl Unregistered / Unconfirmed GUEST, unregistred user! 2007-04-04 #2 procedure TForm1.Image1DragDrop(Sender, Source: TObject; X, Y: Integer); begin if Assigned(Source) then Source.Free; end;
procedure TForm1.Image1DragDrop(Sender, Source: TObject; X, Y: Integer); begin if Assigned(Source) then Source.Free; end;
