这个怎么实现？

[jamesyue2008]

按下鼠标左键在窗口中拖动TLabel，松开后落在新的位置。

谢谢！

[缘中人]

季老大当时都研究了 1. 设定Image的属性DragKind=dkDock; DragMode=dmAutomatic; 设定Form 的属性DockSite=true。 2. 在Image的事件OnEndDock里写一行代码就可以了： void __fastcall TForm1::Image1EndDock(TObject *Sender, TObject *Target, int X, int Y) { ((TControl*)Sender)->HostDockSite = (TWinControl*)0xFFFFFFFF; }

[缘中人]

http://bbs.csdn.net/topics/20257084

[缘中人]

http://download.csdn.net/detail/chaoyue8586/3770893 还有这个例子，你可以看看

[jamesyue2008]

对于没有窗口句柄的控件,比如Image,用设置它的坐标的方法来拖动. 而对于有窗口句柄的控件,比如Edit,可以用这样的方法拖动: 在它的OnMouseMove中: void __fastcall TForm1::Edit1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { ReleaseCapture(); (dynamic_cast<TEdit*>(Sender))->Perform(WM_SYSCOMMAND,0xF012, 1); } 这个不错