Delphi中如何通过封装flash控件使背景透明和实现使用流播放（搞定就给分）

Question

本人最先是使用
  self.Color := clwhite;//假设你的透明色为白色
  Self.TransparentColor := True;
  self.TransparentColorValue := clwhite;
  Self.BorderStyle := bsnone;
和将TShockwaveFlash的wmmode=transparent,和background=-1这种方式可以制作出透明播放的效果啦，但是他不稳定，有时什么都没动都不能透明播放，晕死啦！
后来
我在网上看到啦FlashPlayerControlForDelphi这个控件，他的原理是通过封装flash.ocx的方式来实现透明效果，所以我也想用这种方法，可惜没搞出来，顾在这里想请大家啦一起研究下！
当然要是封装不行，别的方法也成，只要稳定就好！谢谢！

Answer 1

可以参照QQ表情的做法...具体代码google吧
有点长,不太好贴

Answer 2

这个Delphi的代码如下，就可以实现透明了，Flash里做了什么手脚，我倒是忘了，呵呵
  FPlayer := TShockwaveFlash.Create(Self);
  with FPlayer do  // with state
  begin
    Parent := Self;
    Align := alClient;
    Menu := False;
    WMode := 'TransParent';
    Quality2 := 'Best';    OnReadyStateChange := Self.OnPlayStateChange;
  end;  // end with

Answer 3

budded的方法我在机器上用过，但是不稳定，有时能透明，有时不能透明！真是晕倒哦！！！