Delphi 控件的拖动

Question

我想在程序运行的时候
实现 一个Panel 中的控件, 挪到另一个Panel .
就像设计时一样, 选中,可以拖动哪位高手帮帮忙啊

Answer 1

dragMode设置为dmAutomatic dragKind设置为dkDock
事件onDragOver,onDragDrop

Answer 2

http://www.7880.com/download/mnsj-12755.html

Answer 3

//移动控件
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Panel1.BringToFront;
  Panel1.Perform(WM_SYSCOMMAND,$F012,0);
end;
//挪到另一个GridePanel
//Windows.SetParent(控件句柄,GridePanel.Handle);