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 十六进制字符串转化成字符串输出hextostr strtohex（Delphi版、c#版）

Delphi firemonkey的屏幕分辨率hdpi、mdpi、ldpi的差别

Delphi urldownloadtofile 支持进度条

Delphi 的 webservice 的 cookie 操作

Delphi 程序员的反攻－－－－打击p2p

Delphi如何自动重启程序

Delphi 3句话绕过xxx拦截删除桌面快捷方式

Delphi 判断文本文件的编码格式

Delphi snowflake一秒可生成500万id的分布式自增id算法―雪花算法

使用Delphi启动和关闭外部应用程序

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

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