如果要指定时间,你在Show的时候, 设一个时间控件去调用图片窗体
等时间一到就把这个窗体Close
等时间一到就把这个窗体Close
解决方案 »
- [求助]请问怎样用Delphi实现流量控制?
- 个人编软件,在网上卖,收入怎么样
- 如何获得查询结果?
- 请问被锁定的记录能不能解锁?如何解锁?
- 还有谁能提供一下整合Delphi.NET编译器的小工具的链接,我E文实在太低下了,
- dxdbgrid的几个简单的问题!(我的结贴率是100%)(UP的人有分!)
- 有人做过DCOMConnection方面的开发么?up有分!
- 下个星期三去杭州应聘网页设计,带不带我的联想V21笔记本呢?
- 想接触corba,请各位指教,推荐几本书/网站/贡献源码/经验之谈,谢谢
- 打包安装出错的问题!送分!!!!!!!!!!
- 出售人力资源(人事)管理系统软件和源码!!!
- 关于工具栏的问题!100分送上
等主窗口创建完成之后
释放掉就行了
program meter;uses
Forms,
main in 'main.pas' {fmain};
{$R *.RES}begin
try
begin
Application.Title := 'test';
Start := TStart.Create(Application);//显示图像的船体,设置他的 borderstyle为bsNone
Start.Show;
Start.Update;
Application.Initialize;
Application.HelpFile := '';
Start.Update;
Application.CreateForm(Tfmain, fmain);
start.Hide;
start.free;
Application.Run;
end.
或者用溅闪窗体,像delphi似的
Application.Title := 'test';
Start := TStart.Create(Application);//显示图像的船体,设置他的 borderstyle为bsNone
Start.Show;
Start.Update;
Application.Initialize;
Application.HelpFile := '';
Start := TStart.Create(Application);//显示图像的船体,设置他的 borderstyle为bsNone
Start.Show;//显示SPLASH窗口
Start.Update; //对SPLASH窗口进行更新
Application.Initialize;//应用 程序的初始化
Application.HelpFile := ''; //应用程序指向的帮助文件,在这里没有指定
Sleep(3000); //先睡3秒
SPLASH.Hide;
SPLASH.Free;
http://www.csdn.net/cnshare/soft/12/12436.shtm