控制flash菜单的问题

Question

我想要替换flash中的弹出菜单，不知道怎么做帮我解决者，另开200分重谢：）

Answer 1

你想赶什么？flash控件，还是flash MX软件呀？

Answer 2

flash 已經編譯好了﹐還怎么換啊。

Answer 3

我解释一下楼主的意思：
有的flash播放程序（用的是flash.ocx),在flash.ocx控件上右键，不显示它原来自定的
菜单，而改为自己的菜单~to 楼主：
  我怀疑是拦截消息，但是不知道是什么？！

Answer 4

同意ghostmirror(mirror)，应该是消息拦截的问题帮你顶……

Answer 5

谢谢ghostmirror(mirror)和glassesboy(glassesboy)这个消息拦截该怎么做？？

Answer 6

另 写给不愿留下email的 ghostmirror(mirror)
  屏蔽flash控件上的右键菜单,而改成自己的
  ...
  public
    ...
    procedure flashmsg(var msg:tmsg; var handled:boolean);
  ...
  procedure tform1.flashmsg;
  begin
    if (msg.message=wm_rbuttondown) and (msg.hwnd=flash1.handle) then
      begin
        popupmenu1.popup(Mouse.CursorPos.x,Mouse.CursorPos.y);
        handled:=True;
      end;
  end;
  ...
  再在oncreater中加上一句
  application.onmessage:=flashmsg;

Answer 7

pooler(穷人) 兄弟请检查你的邮箱,还请帮我改进

Answer 8

呵呵，我来贴个完整的吧：）unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls, OleCtrls, ShockwaveFlashObjects_TLB;type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    ShockwaveFlash1: TShockwaveFlash;
    procedure FormCreate(Sender: TObject);
  private
  procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
if (Msg.message = WM_RBUTTONDOWN) and  (windowfrompoint(Mouse.CursorPos)=ShockwaveFlash1.handle) then
    begin
    popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
    Handled := True;
   end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMessage:= form1.ApplicationEvents1Message;
end;end.

Answer 9

to here(IamNotBoy) ( )
  赫赫，谢谢你了~~
www.playicq.com有一套flash sdk 工具包可以下
http://new.playicq.com/fileupdatenew.php?p=&c=&jumpto=2&njumpto=0