Title: How to remove the popup menu from Flash's ActiveX
Question: 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:
Procedure TfrmMain.AppEvents1Message( Var Msg : tagMSG;
Var Handled : Boolean );
Begin
If ( Msg.Message = WM_RBUTTONDOWN ) Then Handled := True;
End;
It's not enought? Do you want to put your own PopupMenu? There's the solution:
Procedure TfrmMain.AppEvents1Message( Var Msg : tagMSG;
Var Handled : Boolean );
Begin
If ( Msg.Message = WM_RBUTTONDOWN ) Then Begin
popupmnuFlash.Popup( Mouse.CursorPos.X, Mouse.CursorPos.Y );
Handled := True;
End;
End;