//使用webbrowser控件,浏览页面时,点右键查看属性时程序死掉,表现为无法点击弹出的属性窗口,也无法点击程序,回车键也不行,但是按esc可以关闭属性窗口。
procedure EnabledWebBrowserPropertyForm;
procedure TForm.EnabledWebBrowserPropertyForm();
var
X: Integer;
begin
X := GetWindowLong(Handle, GWL_STYLE);
X := X - WS_POPUP;
SetWindowLong(Handle, GWL_STYLE, X);
end;