Question

定时显示 delphi程序中如何实现

我想让一个form显示一定的时间后自动关闭,应该怎么实现???请教各位高手,就比如说,我一运行应用程序先显示一个窗口,在15秒后自动关闭,进入程序主界面??谢谢各位了!!!

Answer 1

你可以用一个Timer计时器来做这个事情，建立一个新的窗体，在上面添加一个timer。然后启动时候先显示这个logo的窗体，然后初始化你的主窗体，当这个logo窗体的timer被触发以后，你就关闭它。

Answer 2

你是要制作启动窗体吧?
制作登陆窗体:
假设你的登陆窗体命名为:loginform.
找到工程文件(Project -> View Source),找到如下代码部分:
begin
Application.Initialize;

Application.CreateForm(TForm1, Form1);
Application.CreateForm(Tloginform, loginform);

Application.Run;//到此,程序执行
end.
登陆窗体可以设置成在程序执行前创建:
begin
Application.Initialize;//初始化
loginform:=tloginform.Create(application);//动态创建启动窗体
loginform.Show;//显示
loginform.Update;
sleep(2000);//系统延时2秒
loginform.Hide;//2秒后启动窗体隐藏
Application.CreateForm(TForm1, Form1);
Application.CreateForm(Tloginform, loginform);
loginform.Free;//释放启动窗体
Application.Run;
end.