求助ShockwaveFlash的几个小问题？

Question

1、ShockwaveFlash1.StopPlay;不通停止播放；2、ShockwaveFlash在运行后，默认右键菜单可以隐藏吗？用ShockwaveFlash1的PopupMenu处定义菜单；3、ShockwaveFlash在全屏后，为什么播放的图像还是原来的大小（也就是说图像没有跟着ShockwaveFlash1同步变全屏）。用了ShockwaveFlash1.Refresh还是不能解决！

Answer 1

请问ShockwaveFlashp 这个控件哪里有下载,我需要在DELPHI中插入FLASH.我该怎么做!请各位帮帮忙.

Answer 2

Removing the popup menu in Macromedia Flash .OCXDisplaying Macromedia Flash .SWF files in your Delphi Application!
Macromedia Flash ResizingIn Delphi 5, place an "Application Events" component onto the form.On the "OnMessage" Event place the following code:procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
 var Handled: Boolean);
begin
 if Msg.message = WM_RBUTTONDOWN then Handled := True;
end;If by chance you wanted to place your own popupmenu, then do the following:procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
 var Handled: Boolean);
begin
 if Msg.message = WM_RBUTTONDOWN then
 begin
   popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
   Handled := True;
 end;
end;Hope that helps someone that wanted to know how to do this.

Answer 3

前2点就按楼上的说的就可以了
3、ShockwaveFlash在全屏后，为什么播放的图像还是原来的大小（也就是说图像没有跟着ShockwaveFlash1同步变全屏）。用了ShockwaveFlash1.Refresh还是不能解决！
 setfocuse,就ok了

Answer 4

3.
我记得ShockwaveFlash.DoObjectVerb(-1);这样就可以了
这个问题跟wmp控件一样，好像activex一般都有这个问题，调用他们本身这个方法就可以了