大家在写程序的时候为了追求美观,习惯性的会把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;
这么一来,按住这个控件就可以拖动窗体了。
Delphi把窗体设为bsnone时如何拖动窗体
最新推荐文章于 2024-06-07 00:58:47 发布