核心提示:已知解决方法:设置程序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;