实现窗体随着鼠标移动(控件)--《用delphi开发共享软件》-15.1任务管理器

private  //窗体移动；
OldPos,NewPos:TPoint;
bMove:Boolean;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
bMove:=True;
OldPos:=ClientToScreen(Point(X,Y));
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if not bMove then Exit;
NewPos:=ClientToScreen(Point(X,Y));
Left:=Left+NewPos.X-OldPos.X;
Top:=Top+NewPos.Y-OldPos.Y;
OldPos:=NewPos;
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
bMove:=False;
end;　　

拓展：以此让一个控件可移动；

 //变量
    isMouseDown : boolean ; //是否拖拽
     posX,posY : Integer; //拖动开始时候的坐标
 
 procedure TForm1.edt2MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
   isMouseDown := True;                         //告诉窗体我要拖了
   posX := Mouse.CursorPos.X  - edt2.Left ;   //记录开始的位置
   posY := Mouse.CursorPos.Y  - edt2.Top  ;   //
 end;
 
 procedure TForm1.edt2MouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
 begin
   if isMouseDown  then                          //鼠标是按下状态（要拖）
   begin
     edt2.Left := Mouse.CursorPos.X - posX ;   //新的位置
     edt2.Top := Mouse.CursorPos.Y - posY ;
   end;
 end;
 
 procedure TForm1.edt2MouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
   isMouseDown := False;                          //告诉窗体我拖完了
 end;

控件移动