关于播放flash的问题,急!!!!(100分)

[red][/red]
我在做一个flash播放器（用delphi）我想请教各位大虾几个问题：
1:我在改变flash控件的大小时，发现不能正确刷新。
2：我想动态加载flash控件，但是怎样给他设置属性，响应事件？（我直接设置但delphi说找不到方法、数据成员！）请赐教！

在你的delphi目录下，有个imports子目录
看看里面的[blue]ShockwaveFlashObjects_TLB.pas[/blue]
对你大有好处。

implementation
uses ShockwaveFlashObjects_TLB;
..................

var
flash:TShockWaveFlash;
procedure TForm1.FormCreate(Sender: TObject);

begin
flash:=TShockWaveFlash.create(self);
flash.parent:=self;
flash.visible:=true;
flash.OnProgress :=flashprogress;
flash.left:=100;
flash.top:=100;
flash.Movie:='d:/temp.SWF';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
flash.Play;
end;

procedure TForm1.flashProgress(Sender: TObject;p: integer);
begin
label1.caption:=inttostr(p);
end;

http://www.delphibbs.com/delphibbs/dispq.asp?lid=737725