如何用鼠标移动一个标签

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

//...
  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;

Answer 5

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