移动没有标题栏的窗口

      我们一般是用鼠标按住窗口的标题栏，然后移动窗口，当窗口没有标题栏时，我们可以用下面的方法来移动：

      方法一：

      这种方法是在窗体的MouseDown、MouseUp和MouseMove等事件的处理过程中添加代码，实现在鼠标左键按下后移动时，改变窗体的Left和Top属性，实现移动无标题栏的窗体。
　　进入Delphi，把窗体Form1的BorderStyle属性设置为bsNone(无标题栏)。完整代码如下：

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation Var LeftMouseDowm: boolean;//记录鼠标左键是否按下 P1, P2: TPoint;//P1记录鼠标原来的位置，P2记录窗体现在的位置 {$R *.dfm} procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then//如果左键被按下 begin //确认鼠标左键被按下 LeftMouseDowm:=true; //记录鼠标左键按下时的坐标 P1.X:=X; P1.Y:=Y; end else if Button = mbRight then//如果右键被按下 begin Form1.Close;//关闭窗体 end; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if LeftMouseDowm then//鼠标左键处于按下装态 begin //计算移动后窗体的坐标 P2.X:=X-P1.X+Form1.Left; P2.Y:=Y-P1.Y+Form1.Top; //移动窗体 Form1.Left:=P2.X; Form1.Top:=P2.Y; end; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin LeftMouseDowm:=false;//鼠标左键弹起 end; end.

 

      方法二：

      通过消息的发送实现移动无标题窗体。当鼠标按下、移动或释放时，将鼠标在窗体上按下的消息(消息值为HTCAPTION)发出，就可以拖动窗体了。代码如下：

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation Const //定义如下两个常数 WM_NCLBUTTONDOWN = $A1; HTCAPTION = 2; {$R *.dfm} procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then begin ReleaseCapture;//释放鼠标的捕获状态 SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);//向窗体发送移动消息 end else if Button = mbRight then begin Form1.Close;//关闭窗体 end; end; end.

      这种方法实现起来比第一种方法更容易，只有几行代码，并且没有那么多的变量。用到了两个API函数。