delphi拖拽求实现

[mikte]

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

[pzx521521]

不要虚框的话很简单 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;