delphi 实现窗体随着鼠标移动

本文整理自网络，侵删。

 
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;　　
 

相关阅读 >>

Delphi adoquery 开启本地缓存

Delphi应用程序 paramstr（）带有参数

Delphi 检验手机号 ismobilenumber

Delphi获取一个窗口的所有子窗口(包括嵌套)

Delphi stringgrid之属性大全

Delphi实现md5算法

Delphi ioutils 单元(5): tdirectory.tdirectory 的其他功能

Delphi xe 横屏竖屏的管理

Delphi 获取cpuid的函数

Delphi的combobox不能输入只能选择

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 实现窗体随着鼠标移动