关于窗体上控件的移动

[Tine2]

比如窗体上放一个Label，我现在想的事情是，用鼠标拖动该Label时，让它跟着拖动
然后鼠标放开是Label停留在新的位置上，谢谢！

[li_zhifu]

var p:TPoint;

在Label的OnMouseDown事件中：
P.x:=X;
P.y:=y;
在OnMouseMove事件中：
if ssLeft in Shift then
begin
Label.Left:=Label.Left+X-P.X;
Label.Top :=Label.Top +Y-P.Y;
end;

[火鸟李国平]

var
Form1: TForm1;
poont:TPoint;

implementation

{$R *.dfm}

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
poont.x:=X;
poont.y:=y;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
begin
Label1.Left:=Label1.Left+X-poont.X;
Label1.Top :=Label1.Top +Y-poont.Y;
end;

[Tine2]

实现了。谢谢！