AddRemoving the popup menu in Macromedia Flash .OCX
Related Links
Displaying Macromedia Flash .SWF files in your Delphi Application!
Macromedia Flash Resizing

In Delphi 5, place an "Application Events" component onto the form.

On the "OnMessage" Event place the following code:
  1.  
  2. procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  3.   var Handled: Boolean);
  4. begin
  5.   if Msg.message = WM_RBUTTONDOWN then Handled := True;
  6. end;

If by chance you wanted to place your own popupmenu, then do the following:
  1.  
  2. procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  3.   var Handled: Boolean);
  4. begin
  5.   if Msg.message = WM_RBUTTONDOWN then
  6.   begin
  7.     popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
  8.     Handled := True;
  9.   end;
  10. end;

Hope that helps someone that wanted to know how to do this.
  • Author:
  • URL:
  • Date added:
    08 January, 2001
  • Views:
    542
Latest News
Submit News Form Past News
Latest Forum Entries
Latest Searches