使用webbrowser控件,浏览页面时,点右键查看属性时程序死掉,表现为无法点击弹出的属性窗口,也无法点击程序,回车键也不行,但是按esc可以关闭属性窗口。
已知解决方法:设置程序form的border不为bsnone,就正常。
但是现在程序必须使用无边框窗体。
用下面的代码先修改一下窗体的Style就可以了:
var
x:Integer;
begin
x := GetwindowLong(form1.Handle, GWL_STYLE);
x := x - WS_POPUP;
SetWindowLong(Form1.Handle, GWL_STYLE, x);
end;
因为默认的Delphi下面的无边框的窗体的Style有WS_POPUP,这样会导致弹出的模式窗口失去响应,将这个Style去掉就可以了。