delphi拖拽求实现

Question

各位大侠，小弟刚接触delphi，想实现一个功能，类似delphi编辑器似得，拖动一个对象时，鼠标会生成一个跨越其他控件的框，放下时则生成一个新的对象。。该如何实现请各位大侠不吝赐教，小弟拜谢。

Answer 1

不要虚框的话很简单 DragMode变一下然后  加虚框的话自己研究一下GDI+吧procedure TForm1.Btn7EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
  (Sender as TButton).Left := X;
  (Sender as TButton).Top := Y;
end;procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer; State:
    TDragState; var Accept: Boolean);
begin
  self.Caption := IntToStr(X)+','+IntToStr(Y);
  if Source is TForm then
    Accept := True;
end;