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