procedure TForm_main.ApplicationEvents_mainMessage(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message=WM_lButtonDown) and (Msg.hwnd=ShockwaveFlash_main.Handle) then
Msg.message:=WM_lButtonUP;
if (Msg.message=WM_LBUTTONDBLCLK) and (Msg.hwnd=ShockwaveFlash_main.Handle) then
Msg.message:=WM_lButtonUP;
if (Msg.message=WM_RButtonDown) and (Msg.hwnd=ShockwaveFlash_main.Handle) then begin
PopupMenu_main.Popup(Msg.pt.X,Msg.pt.y);
Msg.message:=WM_lButtonUP
end ;
end;