Mega Code Archive

 

Categories / Delphi / Multimedia

 

How to remove the popup menu from Flashs ActiveX

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;