procedure Tfrmain.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
 if (Msg.message = WM_RBUTTONDOWN) and (msg.hwnd =flash_play.handle) then
 begin   popupmenu4.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
  // 这个POPUMENU1就是你自己加上去的什么鼠标右键了
   Handled := True;
  // flash_play.Refresh;
   //application.ProcessMessages;
 end;end;在Formcreat事件中加入
application.onmessage:=ApplicationEvents1Message