使用WebBrowser控件浏览网页，点右键，查看属性时程序死掉 ( 积分: 100 )

心

心云意水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #1

使用webBrowser控件浏览html文件，在html文件上点右键，选择属性一项时，可弹出属性窗口，但是程序就无法用鼠标点中了，属性窗口中的所有按钮都点不中，程序也点不中。但是按“Esc”键可以关闭属性窗口，然后程序也又正常了。
请高手指点是怎么回事？

另：
我已use ActiveX，并使用以下代码对控件进行了初始化：
initialization
OleInitialize(nil);
Finalization
Try
OleUninitialize;
Except
end;

 

心

心云意水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #2

使用webBrowser控件浏览html文件，在html文件上点右键，选择属性一项时，可弹出属性窗口，但是程序就无法用鼠标点中了，属性窗口中的所有按钮都点不中，程序也点不中。但是按“Esc”键可以关闭属性窗口，然后程序也又正常了。
请高手指点是怎么回事？

另：
我已use ActiveX，并使用以下代码对控件进行了初始化：
initialization
OleInitialize(nil);
Finalization
Try
OleUninitialize;
Except
end;

 

心

心云意水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #3

没人来？
顶！

 

E

e-

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #4

窗体BorderStyle不要设为bsNone

 

心

心云意水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-01

• #5

to e-:
多谢指点！这样果然不会产生问题。可是这个程序的界面是自己设计的，只能是无边框。
请问还有别的解决方法吗？

 

P

pengxuan7591

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-09

• #6

用下面的代码先修改一下窗体的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去掉就可以了。

 

心

心云意水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-13

• #7

接受答案了.