Author: Christian Cristofori

I wanted to insert an Macromedia Flash intro into my program using the provided 
ActiveX, but I also wanted to remove the ugly Flash's popup menu. That's the way. 
And if it's not enought, you can replace it with your own popup menu!

Answer:

In your Form, where the Flash ActiveX is, place an "Application Events" component. 
Into the "OnMessage" Event put this code: 

1   procedure TfrmMain.AppEvents1Message(var Msg: tagMSG;
2     var Handled: Boolean);
3   begin
4     if (Msg.message = WM_RBUTTONDOWN) then
5       Handled := True;
6   end;
7   
8   //It's not enought? Do you want to put your own PopupMenu? There's the solution: 
9   
10  procedure TfrmMain.AppEvents1Message(var Msg: tagMSG;
11    var Handled: Boolean);
12  begin
13    if (Msg.message = WM_RBUTTONDOWN) then
14    begin
15      popupmnuFlash.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
16      Handled := True;
17    end;
18  end;