您现在的位置:首页 >> 界面报表 >> 界面报表 >> 内容

Delphi中无边框窗体WebBrowser右键察看属性程序挂了

时间:2011/9/3 15:24:22 点击:

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

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2020 版权所有 All Rights Reserved.
  • 沪ICP备05001939号