我想让Label1在运行也能象在设计时一样可以在Panel1上拖动

Question

在panel中设一过甚摸（好强是sitedock）,只要label在panel中折label在panel上.
不好仪思,万上查清在贴.

Answer 1

label的onmousedown中记下位置，mousedown=true。
如果mousedown则onmousemove中移动label
onmouseup中mousedown=false;

Answer 2

大家一起来看看Delphi的神奇吧！
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;  { a magic number }
begin
   ReleaseCapture;
   Label1.perform(WM_SysCommand, SC_DragMove, 0);
end;