码迷,mamicode.com
首页 > 移动开发 > 详细

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

时间:2015-04-27 18:18:46      阅读:166      评论:0      收藏:0      [点我收藏+]

标签:

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;  

拓展:以此让一个控件可移动;

技术分享
 1 //变量
 2    isMouseDown : boolean ; //是否拖拽
 3     posX,posY : Integer; //拖动开始时候的坐标
 4 
 5 procedure TForm1.edt2MouseDown(Sender: TObject; Button: TMouseButton;
 6   Shift: TShiftState; X, Y: Integer);
 7 begin
 8   isMouseDown := True;                         //告诉窗体我要拖了
 9   posX := Mouse.CursorPos.X  - edt2.Left ;   //记录开始的位置
10   posY := Mouse.CursorPos.Y  - edt2.Top  ;   //
11 end;
12 
13 procedure TForm1.edt2MouseMove(Sender: TObject; Shift: TShiftState; X,
14   Y: Integer);
15 begin
16   if isMouseDown  then                          //鼠标是按下状态(要拖)
17   begin
18     edt2.Left := Mouse.CursorPos.X - posX ;   //新的位置
19     edt2.Top := Mouse.CursorPos.Y - posY ;
20   end;
21 end;
22 
23 procedure TForm1.edt2MouseUp(Sender: TObject; Button: TMouseButton;
24   Shift: TShiftState; X, Y: Integer);
25 begin
26   isMouseDown := False;                          //告诉窗体我拖完了
27 end;
控件移动

 技术分享

技术分享

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

标签:

原文地址:http://www.cnblogs.com/rogge7/p/4460787.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!