我不想以时间来控制启动窗体,我想以窗体的加载来确定启动窗体时间。
解决方案 »
- 如何用Delphi写个启动征途或传奇的程序?给个方法 ?好像是启动了个.dat文件?有做过的么
- dll中的frame如何调用?我从网上下载了一个,大家帮我看看
- 把Delphi Dll转化为bpl方式
- 这样动态创建菜单是否可以?
- 急救:如何用ADODATASET更新关联的记录?
- 为什么在程序中调用Rmreport.DesignReport,无响应,是没安装全还是由于未注册不提供此功能呢?
- 这样为什么不对呢?好多天未能解决,请帮帮我
- 一个关于PSmallint的问题
- 如何用ADO做MASTER/DETAIL的QR报表
- 谁能给我一个很简单的用到ADO的三层结构的例子?
- Delphi群,一个新生的群
- 这个问题怎么解决?
添加timer 控件
当窗体启动时, 设置timer.active:=true
设置起始时间 然后处理这就是启动的时间
如果装好多第三控件,他启动程序就慢一些,而启动窗口就显示慢一些了是吗。这个也正是我想知道的,学习。。
var
Step:Integer;
begin
Application.Initialize;
Step:=0;
Application.CreateForm(TForm1, Form1);
Step:=Step+1;
Application.CreateForm(TForm2, Form2);
Step:=Step+1;
Application.CreateForm(TForm3, Form3);可以这样判断加载窗体的个数,但实际情况中,如果窗体很多,一般情况下,是动态创建,用完释放,可以节省大量资源。自动创建时,当窗体个数在100左右时,在WIN98下很容易崩溃。
当自动创建时,耗时的操作,主要是在创建数据模块和主窗体等
Forms,sysutils,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
form2.Show;
// sleep(1000);//中间加载或者系统初始化过程 在主窗口form1加载的时候最好不要写费时代码
form2.Close;
Application.Run;
end.