关于窗体上控件的移动

Question

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;

Answer 1

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;