如何屏蔽TwebBrowser中鼠标右键自带的菜单，或者怎样判断用户点击了菜单中哪一项。(200分)

I

iceyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #1

如何屏蔽TwebBrowser中鼠标右键自带的菜单，
或者怎样判断用户点击了菜单中哪一项。

随便回答哪个问题都可以

 

T

triton

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #2

你可以添加一个tpopupmenu控件将twebbrowser的popupmenu属性设为popupmenu1即可
单击某一项回返回一个参数，根据参数判断就可以了！

 

I

iceyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #3

你能不能说的具体一些呢，是在popupmenu的Onchange事件中判断，
还是在twebbrowser的什么地方判断？

 

I

iceyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #4

在popupmenu中不能响应鼠标对菜单的判断。那在那里呢？最好给个例子，小妹太笨了，呜呜

 

I

iceyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #5

还有，我怎样才能判断用户点击了菜单中的某一项，我没有找到。来帮帮我。

 

T

triton

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #6

先在popupmenu的items属性里添加几个菜单项，选中其中一个然后在它的onclick事件
添加你需要的程序即可！！！

 

I

iceyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #7

怎么没有响应进去呢？是不是象你说的那样，popupmenu的菜单就和twebbrowser
的一一对应了吗？还有，怎么修改twebbrowser菜单的名字为自己想要的呢？

 

D

dingbaosheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #8

<a href="http://eagleboost.myrice.com/issues/Materials/Articles/TWebBrowser.htm">请点击这儿</a>

 

D

dingbaosheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #9

<font color=red size=5>我要分分!</font>

 

I

iceyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #10

dingbaosheng,你说的地址我早的去了，没有用，除非你告诉我解决方法，否则别想骗分。
还是triton可能能告诉我答案（期待的眼神），我用你的方法试了，但是没有响应
popupmenu的Onclick事件，是不是还需要设置什么？

 

T

triton

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #11

1.将twebbrowser的popupmenu属性设为popupmenu1
2.在popupmenu的items属性里添加几个菜单项
3.选中popupmenu的items中一项的onclick事件
4.在其中加入您的相应代码,比如:showmessage('sucess!');
5.Run

 

I

iceyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #12

triton,可是它就是不听我的，不能响应popupmenu的items中一项的onclick事件
，你说怎么办？

 

T

Terence

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #13

我试了一下，如果load了新的网页，那么原先
自定义的popmenu还是会编程缺省的
这个如何解决？

 

U

unreal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #14

MM的竹杠不敲白不敲，要我回答的话拿300分来，嘿嘿
我告诉你怎样用自己的PopupMenu替换掉WebBrowser的ContextMenu。

 

I

iceyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #15

unreal,你就可怜可怜我吧，我今天才注册了，已经是倾家荡产了，我现在是身无分文，
你们都忍心看着MM哭吗？

 

T

triton

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #16

你把调不通的代码寄给我，我改好后还你！

 

U

unreal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #17

好了，玩笑结束，你没必要自称MM，谁都知道怎么回事，不管真的假的都一样，呵呵
我要全部的200分。少一分都不行，^_^。

放一个ApplicationEvents，在OnMessage中.........

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
mPoint : TPoint;
begin
if IsChild(WebBrowser1.Handle, Msg.Hwnd) and
((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
begin
GetCursorPos(mPoint);
PopupMenu1.Popup(mPoint.X, mPoint.Y);
Handled:=True;
end;
end;

 

I

iceyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-28

• #18

unreal,你还真有两把刷子，我去看了你的网站。可是，我按你说的将
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
加入程序中，还是没有作用，为什么？我是不是少加什么东西了？
其他的人试了吗？

 

U

unreal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-28

• #19

我倒！～～～～～～～～～～～
给你发个例程吧，查收......
在程序上点右键弹出PopupMenu.....尤其是TWebBrowser上，
这都要说，嘿嘿
每发一贴效率积分都会降低的，害我分又降了
快把分拿来补偿一下。

 

H

honghs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-28

• #20

用embeddedwb吧，很容易就可以控制弹出来的关联菜单