急急急：用TShockwaveFlash控件怎样实现全屏显示和恢复？

Question

急急急：用TShockwaveFlash控件怎样实现全屏显示和恢复？

Answer 1

你放到个form上设alclient，然后把form最大化，放大聚焦到shockwave就可以了

Answer 2

好象不行,代码是这样的--->
self.WindowState := wsNormal;

Answer 3

self.WindowState := wsNormal
最大化
wsMaximized
shockwv.setforcus

Answer 4

ShockwaveFlash1->Movie=ExtractFilePath(Application->ExeName)+"\\"+"1.swf";
   ShockwaveFlash1->Play();
    Form1->WindowState=wsMaximized;
    ShockwaveFlash1->Left=this->Left;
    ShockwaveFlash1->Top=this->Top;
    ShockwaveFlash1->Height=this->Height;
    ShockwaveFlash1->Width=this->Width;
    ShockwaveFlash1->SetFocus();
在cb中！

Answer 5

在DELPHI中就是这样了！ShockwaveFlash1.Movie=:ExtractFilePath(Application.ExeName)+"\\"+"1.swf";
   ShockwaveFlash1.Play();
    Form1.WindowState=:wsMaximized;
    ShockwaveFlash1.Left=:this.Left;
    ShockwaveFlash1.Top=:this.Top;
    ShockwaveFlash1.Height=:this.Height;
    ShockwaveFlash1.Width=:this.Width;
    ShockwaveFlash1.SetFocus();
以前我搞定个问题。也是很久没有搞定！
好像只有楼上说的这个方法可行性比较高！
-----------------------------------------------------------------------
人在江湖，人不由已！我喜欢程序员这职业！

Answer 6

谢谢了！另外怎样用自己的弹出菜单替换ShockwaveFlash的菜单？？

Answer 7

// 自定义右键菜单 ; popupmenu1 为自定义菜单ApplicationEvents   OnMessage 事件 :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;