使窗体自动吸附屏幕边缘

Question

求代码，使窗体有吸附屏幕各边缘的效果，上下左右都要有，像千千静听那样。
要求没有BUG，适用各种分辨率。代码尽量从简，先谢谢了。

Answer 1

这个不难的,可以通过判断来做到,delphi里不是有个Screen的类吗,可以判断form的位置,再做一些事件的处理.可以不考虑分辨率,都一样的

Answer 2

如果你使用的是Delphi2007，只要设置一个就好。打开“吸附”选项，然后设置最大可“吸附”距离（象素），即可。

Answer 3

赞同楼上 在D2007中，设置窗口的ScreenSnap为True,SnapBuffer为20，
 当移动窗体到边缘20象素的时候，窗口会自动吸附。

Answer 4

在这里有D2007 Lite Sp3精简版下载，比较好http://bbs.yd153.com/dispbbs.asp?boardid=25&Id=39

Answer 5

各位。。原来DELPHI7就可以，在OnCreate里加两句代码就行了：
self.ScreenSnap:=True;
self.SnapBuffer:=30;
呵呵，不用整那么麻烦的代码。

Answer 6

oh.. 的确是有ScreenSnap这个属性的，不过没用过忘记了，谢谢楼上提醒。