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