Delphi把窗体设为bsnone时如何拖动窗体

大家在写程序的时候为了追求美观，习惯性的会把borderstyle设置为bsnone，这么一来窗体就会变成无边框，大家可以自己在角落画一个image插入美工做好的图片，自己弄最小、大化，关闭按钮。但是没有了原始边框，要怎么实现拖动窗体呢？
我自己想了一个很简单的方法，先在界面中插入一个控件，可以是button、panel、image等等只要能响应鼠标事件即可。最好是选择自己画的边框，也就是image或panel。定义一个全局变量DROP：Boolean；
在控件的onmousedown事件中令DROP为TRUE，在onmouseup事件中令DROP为FALSE，最后在onmousemove事件中
if DROP then
begin
Form1.left:=Form1.left+X;
Form1.top=Form1.top+Y;
end;
这么一来，按住这个控件就可以拖动窗体了。

• 点赞
• 收藏
• 分享
• 文章举报