如何实现程序显示信息后停留30秒登录系统??

Question

想在程序运行时显示一组信息,
用MessageBox实现显示信息,然后停留30秒自动运行到登录框,比如
MessageBox(Handle,'你的余额不足10,请及时充值'...);
实现停留30的语句

Answer 1

加一个Timer控件，就可以实现吧。
在onTimer事件中写代码，onTimer事件在制定时间内触发一次，这个时间长度由Interval属性决定。procedure TForm1.FormGreate(Sender:TObject);
begin
  Timer1.Interval:=1000;
end;procedure TForm1.Timer1Timer(Sender:TObject);
begin
  Label1.caption:=DateTimeToStr(Now());
end;参考一下吧。

Answer 2

MessageBox不行，用窗体做吧    Application.Initialize;   
    
      Application.CreateForm(TFFlash,   FFlash);   //闪现窗体创建及显示   
      FFlash.Show;   
      FFlash.Repaint;   
      sleep(1000);   
    
      Application.CreateForm(Tdm1,   dm1);   
      FFlash.hide;   
      FFlash.free;   
    
      Application.CreateForm(TForm1,Form1);   
      Application.Run;

Answer 3

 Application.CreateForm(Tdm1,   dm1);  这个是什么意思? 什么窗体?起什么用????

Answer 4

这个是主窗体，在PROJECT文件里面。

Answer 5

在工程文件里面，也就是*.dpr文件，2楼的意思就是要在主窗体启动前，先显示一个提示窗体，过了30秒之后，关闭提示窗体然后启动主窗体！相当于Delphi7软件的启动时的窗体。