Delphi的窗体编程技巧──用鼠标拖动无标题窗口 王翔宇 2001年 20期 编程的时候，有时为了需要，会将窗体的BorderStyle设置为bsNone，即无标题窗体。但是这样一来，因为没有了标题栏，就无法拖动窗体了。其实，我们只需要用以下的方法，就可以实现平滑拖动窗体了。 　　在OnMouseDown事件中加入 　　OldX:=x; 　　OldY:=u; 　　在OnMouseMove事件中加入 　　Form1.Left:=Form1.Left+x-Oldx; 　　Form1.Top:=Form1.Top+y-Oldy; 　　#1源代码如下： 　　unit Unit1; 　　interface 　　uses 　　Windows， Messages，SysUtils， Classes，Graphics，Controls，Forms， Dialogs; 　　type 　　TForm1 = class（TForm） 　　procedure FormMouseDown（Sender:TObject;Button:TMouseButton; 　　Shift:TShiftState;X，Y，Integer）; 　　procedure FormMouseMove（Sender:TObject;Button:TMouseButton; 　　Shift:TShiftState;X，Y，Integer）; 　　private 　　 ｛Private declarations｝  　　public 　　｛Private declarations｝  　　end; 　　var 　　Form1:TForm1; 　　OldX，OldY:integer; //定义全局变量 　　implementation 　　｛$R *.DFM｝ 　　procedure TForm1.FormMouseDown（Sender:TObject;Button:TMouseButton; 　　Shift:TShiftState;X，Y:Integer）; 　　begin 　　OldX:=x; 　　OldY:=y; 　　end; 　　procedure TForm1.FormMouseMove（Sender:TObject;Button:TMouseButton 　　Shift:TShiftState;X， 　　Y:Integer）; 　　begin 　　if ssleft in shift then //按下鼠标左键 　　begin 　　Form1.Left:=Form1.Left+x-Oldx; 　　Form1.Top:=Form1.Top+y-Oldy; 　　end; 　　end; 　　end. 　　注：以上代码在Delphi5.0、Win98 SE中测试通过。