delphi能替代flash动画弹出的右键菜单吗？(200分)

C

cy72

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #1

小弟用popupmenu做了一个菜单，
在form1的popupmenu中选定popupmenu1实现鼠标右键弹出菜单。
但在使用ShockwaveFlash之后，
右键菜单就不灵了。
弹出的是关于flash5的信息。
如何能用我制作的菜单替代flash动画右键弹出的菜单？
在网上找了很久，
就是没能找到解决的方法。
总不会一点办法都没有吧？
请各位高手帮帮忙。
谢谢。

 

X

xiao_min

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-22

• #2

create中：
application.onmessage:=mymessage;
PUBLISH中：
procedure mymessage(var msg:tmsg;var handled:boolean);
实现：
procedure tform1.mymessage(var msg:tmsg;var handled:boolean);
begin

if (msg.message=wm_rbuttondown) and (msg.hwnd=flash.handle) then

begin

handled:=true;
//在这里加入你自己的菜单
end;

end;

 

G

gzliangmeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #3

楼上的大虾能否将以下的说具体些？例如我自己的菜单是PopupMenu1 ，如何加？
begin

handled:=true;
//在这里加入你自己的菜单
end;

 

X

xiao_min

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #4

popupmenu1.popup(mouse.cursorpos.x,mouse.cursorpos.y)

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #5

xiao_min,
说的真清楚

 

D

dingbaosheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #6

Agree xiao_min

 

C

cgh0717

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #7

FT！楼上的方法可用，结束讨论吧。[8D]

 

C

cy72

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-16

• #8

谢谢大家

 

C

cy72

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #9

再次感谢大家！