正在阅读：Delphi中的窗体移动Delphi中的窗体移动

2004-03-31 10:17 出处：delphi精髓网作者：delphi精髓责任编辑：sdq

　　以上方法不完善之处

　　当把“拖动窗口的过程中显示其内容”的选项取消时,让我们看看会发生什么。这是Windows窗口的一项设置,你可以在“开始菜单-->设置-->文件夹选项-->查看-->高级设置”中找到该属性。在Windows95中,你需要修改注册表。当此属性被设为无效,拖动窗体时窗体会变为一个正方形轮廓线。也许你使用一个不规则窗体,但它仍然会显示轮廓线。
　　
　　当你想要让你的窗体停靠在屏幕的边缘(如:WinAmp,当你拖动窗体进入屏幕顶部某一特定位置时,窗体便紧靠在屏幕顶部),如果你使用以上第二种方法,在鼠标按钮放开前,你将无法处理窗体位置,并无法处理停靠问题。

　　下面我会用简单的方法解决两个问题:
　　
　　第一,无论设置为何,在拖动窗体时都不显示轮廓线;
　　
　　第二,移动窗体时进行位置检测,并在位置适当时停靠在某一特定位置。很多人也许已经解决了这些问题,但是也许下面的代码对你会有帮助。

方法三

　　以下代码可以直接复制到Delphi中,前提是你将Form1存为uMain.pas,Form2存为uDock.pas。用到的事件是:onMouseDown,onMouseMove,onMouseUp,OnShow(Form1)。
　　
　　这是一个根据鼠标的移动移动窗体的方法,包含两个窗体,uMain和uDock(Form1和Form2)。Form2通过Form1打开,并可以停靠在Form1的底部。停靠后,Form2将随Form1一起移动,直到你将Form2移开。

察看评论详细内容我要发表评论