两种方法:
1、加个Form,在主Form的东东运行前掉用,如:form的show事件
这个form上有timer 控制关闭
timer 用2~3秒就行 它的ontimer里加close就行。
2、在主form的启动事件里动态生成一个form 还是要加个timer 其它的都一样了
1、加个Form,在主Form的东东运行前掉用,如:form的show事件
这个form上有timer 控制关闭
timer 用2~3秒就行 它的ontimer里加close就行。
2、在主form的启动事件里动态生成一个form 还是要加个timer 其它的都一样了
解决方案 »
- 崩溃了,大家帮忙看看
- delphi程序编译后生成哪些临时文件?这些文件可以删除吗?
- 关于ParaFormat2结构体
- ADOQuery中使用了Group by为什么出错了,而该Sql语句是正确的。出错信息如内:
- 有关SQL数据库查询某条记录并且能定位的问题!
- Raize 组件Bug问题?
- ---------如何控制word内容的输出位置?----------
- 用代码如何实现出现AdoConnection设置ConnectionString时出现的属性窗口?
- 如果让你给一帮从来没见过delphi的计算机系的学生做个报告,你会讲些什么?
- 有点难的问题(关于网络.开始虽分数给的不多但可加分)
- 探讨这样一个这样的问题:如何实现操作一个表中的数据象EXCEL那样(不要求它那样的强大的功能),可进行简单的数据统计
- 为什么我在Change里不能改变ComboBox.text的值
program Flash;uses
Forms,windows,
Form1 in 'Form1.pas',
Form2 in 'Form2.pas',
start in 'start.pas';{$R *.res}
var
fstart:Tfstart;begin
Application.Initialize;
fstart:=Tfstart.Create(Application);
fstart.show;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
sleep(2000);//延时,单位毫秒
fstart.Free;
Application.Run;
end.Tfstart即启动画面要事先做好
你可以在主窗体的create和active的时候创建和删除splash窗体。
别忘了在active的时候free掉以后,让splash:=nil;如果你想让你的slpash至少显示n秒,那么在上述基础上,给splash加上timer,interval设置成n, ontimer的时候
timer.enabled:=false;
if mainform.visiable then
close;
并且在mainform.onactive的时候监测splash.timer的enabled,判断是否到了n秒,是否freeandnil;