如何用鼠标移动一个标签

[yuwenshen]

如何用鼠标移动一个标签？我在一个PANL上有一个标签，我想用鼠标移动它，怎么样写代码？怎么保存这个标签的坐标？

[yuwenshen]

怎么没人啊？帮帮我啊

[zzn007]

他是不能移动的啊！
想要移动可以换换控件，比如edit或者是button,吧他们的外观设置成类似标签不久可以了？

[bxh2dai]

UP

[yyu423]

你可以这样写试试在它的你窗体中
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Left:=x;
label1.Top:=y;
end;
这样就可以移动了
如要控制就自行增加代码吧

[yuwenshen]

我就是想控制它的啊yyu423(风雪男儿) 那个控制的代码我不会撒，请你帮帮忙啊

[zswangII]

//...
private
{ Private declarations }
FOldPoint: TPoint;
//...

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

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

[yuwenshen]

谢谢zswangII(伴水清清)(一贴不灌，何以灌天下？) 了