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
