用ShockwaveFlash控件播放swf文件时，如何去掉鼠标右键功能？(100分)

A

analog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-22

• #1

谢谢

 

X

xzh2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-22

• #2

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1007452

看看这个，应该是你要的。

 

C

chnplzh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-22

• #3

自己重新定义鼠标右键功能。

 

Y

yanyandt2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-22

• #4

截获鼠标消息，至于方法，太多了，不用说了吧

 

O

oiwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-22

• #5

加一个ApplicationEvents控件
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
//if 鼠标在ShockwaveFlash控件上
if Msg.message = WM_RBUTTONDOWN then
Handled:=true;//去掉ShockwaveFlash控件右键菜单
//在这个位置还可以加上你自己的弹出菜单
end;
//当然你自己也可以截获鼠标消息,不用ApplicationEvents控件
我想这个问题可以结束了.

 

找

找朋友

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-23

• #6

补充楼上的：if (Msg.Message=WM_RBUTTONDOWN) and (Msg.Hwnd=Flash.Handle) then
Handled:=true;

 

D

DeityFox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-25

• #7

呵呵,直接在flash的外壳文件ShockwaveFlash_TLB.pas文件中加入拦截鼠标右键
的消息最方便,免的每次使用都要拦截消息

 

A

analog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #8

多人接受答案了。