使用FlashActiveX控件播放SWF文件(100分)

H

hunter0401

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-28

• #1

我把TShockwaveFlash放在TPanel容器中，布局设置为alClient,在播放时遇到的问题是
在改变TPanel的大小时，但TShockwaveFlash的播放画面不会自动填充TPanel,必须要手
动在播放画面上点一下，是为何原因呢？

 

H

hunter0401

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-31

• #2

问题急，再加100分
SOS
SOS
SOS
...

 

Z

zhengct

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-31

• #3

我记得好像是：
panel1.SetFocus;
ShockwaveFlash.SetFocus;
panel1.SetFocus;;

试一下吧。

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-31

• #4

shockwaveflash1.Hide;
shockwaveflash1.Show;
shockwaveflash1.setfocus;

 

飘

飘雪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #5

// 方法一
{ if ShockwaveFlash1.playing=true then

begin

StatusBar1.SetFocus
ShockwaveFlash1.SetFocus
end
else

begin

end;
}

// 方法二
ShockwaveFlash1.DoObjectVerb(-1);
// or -3

 

X

x_coffee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #6

我也遇到同样的问题，不知道如何解决？？

 

G

gsw798

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #7

这个问题是这样解决的：
　　在生成ShockwaveFlashObjects_TLB.pas 中;
　　.....
TShockwaveFlash = class(TOleControl)
....
protected
procedure Resize;override;
...
procedure TShockwaveFlash.Resize;
var
SavedParent: TWinControl;
begin

{Sync flash bounds after any move}

SavedParent := Parent;
Try
Parent := nil;
inherited;
finally
Parent := SavedParent;
end;


end;

保存就可。

 

J

jayxsjf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #8

请问哪里可以找到TShockwaveFlash控件？谢谢

 

H

hunter0401

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #9

接受答案了.