703
社区成员
发帖
与我相关
我的任务
分享
__fastcall TPlayForm::TPlayForm(TComponent* Owner)
: TForm(Owner)
{
String nowPath = ExtractFilePath(Application->ExeName);
this->BorderStyle = bsNone;
this->Position = poScreenCenter;
this->FormStyle = fsStayOnTop;
this->AlphaBlend = true;
this->AlphaBlendValue = 255;
this->TransparentColor = true;
this->TransparentColorValue = 0x00010000;
this->ShockwaveFlash1->BGColor = "000001";
this->ShockwaveFlash1->Movie = nowPath + "launch.swf";
}
from kiboisme: 给你一个思路,从swf文件着手 首先建立一个swf文件,容器.swf 并写一个接口和外部程序通讯, 通过接口,外部程序可以加载swf能识别的文件到画面上显示(包括图像,声音,swf影片...好多好多). 虽然可以直接把外部swf引入容器中一起编译,不过我想你肯定要动态变换外部swf,所以用这个方法. Delphi中,首先装入 容器.swf,然后通过接口,装入背景,然后装入你那个swf不就行了,透明,渐变,图像填充,画质....一切问题全部搞定,不是最好不过了? 事件也可以通过接口转到Delphi中.....
俺从前就尝试过,就是在XP下这个透明色的值试来试去都无效,win7下就没试过了
俺从前就尝试过,就是在XP下这个透明色的值试来试去都无效,win7下就没试过了
这是俺的源码包,你看看你那正常不 http://pan.baidu.com/s/1jGr4q6E
也一样黑色背景