📄 from_move.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用Delphi实现无边界窗体的移动</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p align="center"><big><big><big>用Delphi实现无边界窗体的移动</big></big></big><br>
宋爱平 </p>
<p> 在用Delphi制作Windows程序的窗体时，窗体的边界有四种选择：对话框式（bsDialog），<br>
单边固定式（bsSingle），双边可变式（bsSizeable），无边界式（bsNone）。当设置为<br>
bsNone时，窗体也就没有标题条，很显然，程序运行以后就无法移动窗体了。事实上，无边界<br>
窗体是很有用的，例如，象Word里面的浮动式工具箱其实就是无边界窗体，它可以大大节约屏<br>
幕空间。那么，如何用Delphi实现这个功能呢？显然，这需要修改Windows的内部消息，也就<br>
是说，需要把“MouseDownonForm”这个消息改为“MouseDownonCaption”，这其中有三个关键：<br>
捕捉MouseDown消息、判断光标位置、发送MouseDown消息。如果光标在窗体中，则发送<br>
MouseDownonCaption消息。 <br>
<br>
在Delphi的对象巡检器中列出的所有事件是不能捕捉到Windows消息的，因为这些都是已<br>
经发出的消息，无法修改了。捕捉Win⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -