Flash'a sağ click ekledim ama formun popupmenüsü gitti.

[kahraman1285]

mrb.
@saadettinpolat hocamın örneğine göre run time da flash nesnesi create edip ona popup menu ekledim ve delphide sağ tuş mesajını yakalayarak
popup açıyorum fakat diğer tüm nesnelerin popup ları flashın popup'ı oluyor.

nerde hata yapıyorum bi bakabilirmisiniz...

Kod: Tümünü seç

Unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, StdCtrls, Menus; 

type 
  TForm1 = class(TForm) 
    PopupMenu1: TPopupMenu; 
    asdasd1: TMenuItem; 
     procedure asdasd1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    end; 
    type 
    TSPFlas = Class(TShockwaveFlash) 
    public 
  procedure aloooo(var Message:Tmessage); message WM_RButtonDown; 
  end; 

var 
  Form1: TForm1; 
  spflash :TSPFlas; 
implementation 

{$R *.dfm} 

{ TSPFlas } 

procedure TSPFlas.aloooo(var Message: Tmessage); 
var 
a:Tpoint; 
begin 
Form1.PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.y); 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
spflash := TSPFlas.create(Self); 
spflash.Parent := Form1; 
spflash.WMode := 'Window'; 
spflash.Movie := 'c:\windows\desktop\flash\irak.swf'; 
end; 

procedure TForm1.asdasd1Click(Sender: TObject); 
begin 
ShowMessage('merhaba!'); 
end; 

end.