如何做一个比较COOL的启动画面的动画弹出?(50分)

如何做一个比较COOL的启动画面的动画弹出?

以前见过几个软件. 点击软件打开时,有个虚线框,从屏幕中间,渐渐变大.然后才显示出启动画面.

后来看 C32ASM .那个的动画效果更多.

我想问下谁有没有现成的代码?

：）嗯，有创意！我愿来怎么没有看到过也没有想到过，以后有时间了我要尝试着做做看！当然楼主要是找到了也请发给我一份，省得到时候走弯路了...呵呵：）先谢了！
我的e-mail:Johnny_dm@tom.com

我认为利用“窗体透明度”“画不规则窗体”在加上动态语句就可以实现了 。不知楼主要作的多酷，想学习一下。

上次看到一个mp3软件有源码的。。。
实现的类似于界面淡进淡出的效果。。。
一时想不起搁哪儿了。。。晕。。。
回头找找再发给lz。。。

找到了,请留个Email好发给你...

唉，我大学毕业设计时就这么写了，可以源码不知道丢到哪里了，我找找啊！

找到了。
先建一个窗体名为Fhello，其FormCloseQuery事件中写，如下：
procedure TFhello.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if canclose then
begin
//产生随机效果关闭界面。
randomize;
AnimateWindow(handle,200,Aw_Hide or random(16)+1);
end;
end;
在主界面FMain建立事件中写入：
procedure TFMain.FormCreate(Sender: TObject);
const
splash_time =10000;
iavg =300;
var
starttime,endtime :integer;
begin
starttime := gettickcount;
Fhello := TFhello.Create(application);
Fhello.show;
Fhello.Update;
endtime := gettickcount;
if endtime - starttime < splash_time then
begin
Fhello.Update;
sleep(2*iavg);
Fhello.Label1.Visible := true;
Fhello.Update;
//休眠一段时间
sleep(iavg);
//显示一个欢迎字符
Fhello.Label2.Visible := true;
Fhello.Update;
//休眠一段时间
sleep(iavg);
//显示第一个欢迎字符
Fhello.Label3.Visible := true;
Fhello.Update;
sleep(iavg);
Fhello.Label4.Visible := true;
Fhello.Update;
sleep(iavg);
Fhello.Label5.Visible := true;
Fhello.Update;
sleep(iavg);
Fhello.Label6.Visible := true;
Fhello.Update;
sleep(iavg);
Fhello.Label7.Visible := true;
Fhello.Update;
sleep(2*iavg);
end;
Fhello.Close;
Fhello.Free;
end;
试试，是不是你想要得效果。

楼上的效果太一般了

通过Flash做的动画，在你的程序播放就可以了。
要用到Flash里的DLL组件，然后导入到DELPHI里生成一个控件，再把连接上就可以了。

技术交流QQ：136293586

哈哈...要效果最好是連運行速度也不慢的,...

学习

不喜欢用Flash 有没有别的