如何做拖拽FORM上的控件位置[在线等]

[微笑的水]

举个例子：
一个窗体上有 几个 Label。

我想实现，选择Form上的一个 label 并且让他能随着鼠标移动。

类似我们在IDE中调整控件位置一样。不过要求是在运行的程序中，选取，并移动某个控件。

谢谢，在线等。马上结贴。

[zhangheaaa]

通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL：
var xpanel,ypanel,xlabel,ylabel:integer;
PANEL的MouseMove事件：xpanel:=x;ypanel:=y;
PANEL的DragOver事件：xpanel:=x;ypanel:=y;
LABEL的MouseMove事件：xlabel:=x;ylabel:=y;
LABEL的EndDrag事件：label.left:=xpanel-xlabel;label.top:=ypanel-ylabel;

[jinjazz]

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Button1.PerForm(WM_syscommand,$F012,0);
end;

[微笑的水]

窗口上会有 N 个控件， 要选定某个。 控件不是固定的。

楼上的回答，是固定了 label1 那 label2 ,edit1,..... 怎么办？

谢谢，请在帮忙。

[leonkim]

在D e l p h i的集成开发环境中，可以用鼠标在窗体上拖动控件进行界面设计。在程序的运行
期间也可以通过拖动实现控件的移动。可以使用函数P e r f o r m来传递Wi n d o w s消息给控件，用
来完成控件的移动。
P e r f o r m函数的原型如下：
function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;
其中参数M s g传递一个消息的I D号。消息通过W p a r a m、L p a r a m传递给进程。
下面的例程S 4 _ 1 0对运行时控件的移动进行了说明。在例程S 4 _ 1 0的窗体中，有一个E d i t组
件和一个用来说明的L a b e l组件，可以使用鼠标使E d i t组件在窗体中移动。
具体实现过程如下：
1) 通过File | New Application创建一个新工程。
2) 在窗体F o r m 1中添加一个E d i t组件和一个L a b e l组件。
3) 在E d i t 1组件的O n M o u s e D o w n事件的处理过程中添加以下代码：
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
c o n s t
SC_DragMove=$F012;
b e g i n
R e l e a s e C a p t u r e ;
(Sender as TWi n C o n t r o l ) . P e r f o r m ( W M _ S y s C o m m a n d , S C _ D r a g M o v e , 0 ) ;
e n d ;
4) 编译、链接和运行程序，测试效果。
说明：
• 读者可以将常数S C _ D r a g M o v e的数值改成其他数值，如改成：
SC_DragMove=$F020;
运行后测试效果。
• 上面的拖动只能对窗口控件进行。
• 上面拖动的实际用途可以让用户改变C o n t r o l B a r中各组件的位置。
118基本第二部分Delphi 编程的核心技能

[微笑的水]

正是： jinjazz(近身剪（充电中...）) 的 方法 可如何。十分感谢！！