核心提示：已知解决方法：设置程序form的border不为bsnone,就正常。 但是现在程序必须使用无边框窗体。 用下面的代码先修改一下窗体的Style就可以了： var x:Integer; begin x...
已知解决方法：设置程序form的border不为bsnone,就正常。 但是现在程序必须使用无边框窗体。
用下面的代码先修改一下窗体的Style就可以了：
var
x:Integer;
begin
x := GetwindowLong(form1.Handle, GWL_STYLE);
x := x - WS_POPUP;
SetWindowLong(Form1.Handle, GWL_STYLE, x);
end;
