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 idftp 错误：socket error 10054 �c connection reset by peer -连接被重置

Delphi用idhttp.get访问一个网址返回403错误，但用ie浏览器访问正常

Delphi pi 精确计算返回圆周率

Delphi的listview自动排序

Delphi net.httpclient正则批量获取网页代码中的数值

Delphi edit控制字居中，居左，居右

Delphi tbytedynarray转化为string

Delphi wininet带进度下载http文件

Delphi百度地图经纬度与地址互转

Delphi xe android的所有权限按照分类总结说明

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

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