中国这么多牛人就不信搞不定这问题【Delphi中如何通过封装flash控件使背景透明和实现使用流播放】【上次同样问题帖已结贴，分数都给啦！算是补上上次的！o(∩_∩)o...哈哈】

Question

本人最先是使用   
        self.Color       :=       clwhite;//假设你的透明色为白色   
        Self.TransparentColor       :=       True;   
        self.TransparentColorValue       :=       clwhite;   
        Self.BorderStyle       :=       bsnone;   
和将TShockwaveFlash的wmmode=transparent,和background=-1这种方式可以制作出透明播放的效果啦，但是他不稳定，有时什么都没动都不能透明播放，晕死啦！   
后来   
我在网上看到啦FlashPlayerControlForDelphi这个控件，他的原理是通过封装flash.ocx的方式来实现透明效果，所以我也想用这种方法，可惜没搞出来，顾在这里想请大家啦一起研究下！   
当然要是封装不行，别的方法也成，只要稳定就好！谢谢！   
【不能使用第三方的dll等，而且涉及第三方版权的方法均不能使用！】  上一张帖子:
http://topic.csdn.net/u/20071128/11/b0d59064-026e-4dc5-a7ff-a6eb8ef4b366.html
都已经结贴，不好意思，很好到在网上发帖，不懂规矩，在这次结贴过程中，都给各位回复者以相应积分，o(∩_∩)o...哈哈。上上一张帖子http://topic.csdn.net/u/20071026/15/69236fc4-f991-41a0-8417-9815ffe7a912.html 
发啦一个月多也没有牛人提供的方法能搞定！【不好意思，以没有满意答案结贴啦，下次一定改正，o(∩_∩)o...哈哈！】

Answer 1

已经说过~
自己看商业源码Flash Engine的Code即可

Answer 2

商业源码Flash   Engine的Code即可,对我们来说只能参考，而且很复杂都是接口之类的东西，看不是很懂，要是直接拿过来用的话，我们在这块版权是管理的很严密的，要是被查出来，肯定挂啦【估计我肯定被开啦！！！】买的话也不是不可以，就是走流程就几个月！到时间人都疯啦！o(∩_∩)o...哈哈！！！
所以我想请教请教牛人，教我或者指点的更加详细点搞定它。其实上面的方法
 self.Color               :=               clwhite;//假设你的透明色为白色       
                Self.TransparentColor               :=               True;       
                self.TransparentColorValue               :=               clwhite;       
                Self.BorderStyle               :=               bsnone;       
和将TShockwaveFlash的wmmode=transparent,和background=-1
就是不稳定，我觉得不可能编译过的代码有二种运行结果，要不然我们的嫦娥一姐，不飞到火星去啦o(∩_∩)o...哈哈！我想肯定根系统设置有什么关系，我想这也是解决这个问题的最简单的办法，o(∩_∩)o...哈哈。
另外本人水平实在是有限，那种Flash   Engine中的code我确实看不是很懂，都是接口的调用，涉及到COM我就是改我都觉得很困难！真是郁闷！！！

Answer 3

进来顶一下。。//设置窗体透明度
  AlphaBlend := true;
  AlphaBlendValue := 50;{*透明度}