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中单独编译pas生成dcu文件

Delphi 2009 中 tstrings 与 tstream 的增强

Delphi webbrowser1提取网页中的所有链接、点击第 n 个链接

简单的rs232c/ttl电平转换和串口取电

Delphi treeview节点展开与折叠

Delphi 如何从html格式的字符串中提取纯文本？

Delphi shellexecute openurl 的跨平台实现

Delphi调用java编写的webservice

手动创建和部署一个classes.dex 查看更多关于 classes.dex 的文章 文件

Delphi decodeutf8str解决系统自带utf8解码缺陷

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

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