Delphi 无边框WebBrowser右键属性程序挂起问题解决

Form启动时候，从新设置窗体的Style：
 

procedure TForm1.onFormCreate(Sender: TObject);
var nbStyleFix:Integer;

 

 

 {修复无边框窗体WebBrowser右键/属性程序挂起}
begin
  nbStyleFix := GetwindowLong(Form1.Handle, GWL_STYLE);
  nbStyleFix := nbStyleFix - WS_POPUP;
  SetWindowLong(Form1.Handle, GWL_STYLE, nbStyleFix);
end