如何在主窗口显示前加一个splash窗口?

Question

如何在主窗口显示前加一个splash窗口?
我的主窗口在程序运行时好长时间才能显示,主要原因是进行大量的数据统计,我想在主窗口显示前让另一个窗口先显示?如何做?

Answer 1

在project中begin
Application.Initialize;
  form10:=tform10.Create(application);————————splash窗口
  form10.Show;
  form10.Update;
  while form10.Timer1.Enabled do
    application.ProcessMessages;
  Application.CreateForm(TForm1, Form1);
  form10.Hide;
  form10.Free;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.Run;
end;

Answer 2

lovelymelon(小人物)能不能将你的程序代码发给我?
[email protected]

Answer 3

另外在splash窗口中加一个timer控件，修改interval为一个比较长的时间间隔
procedure TForm10.Timer1Timer(Sender: TObject);
begin
  form10.Timer1.Enabled:=false;
end;

Answer 4

这个不好计算吧，只能估计，或者，先不加splash窗口运行一次看看

Answer 5

1.在主窗口的onshow中添加如下代码：
procedure TForm1.FormShow(Sender: TObject);
begin
  form2.ShowModal;
end;
2.定义一个全局变量
boo:boolean;
3.在splash窗口的onshow事件中添加主窗口显示前的数据统计工作，在这些工作做完，也就是说主窗口能够显示时，给boo赋值true
4.在splsh窗口添加一个timer控件，在ontimer事件中添加如下代码：
if form1.boo=true then
    form2.Close;

Answer 6

还是不好
3.在splash窗口的onshow事件中添加如下代码
  form2.Timer1.Enabled:=true;
4.在splash窗口中添加一个timer控件，在ontimer事件中添加如下代码
  procedure TForm2.Timer2Timer(Sender: TObject);
begin
  form1.Query1.Close;
  form1.Query1.SQL.Clear;
  form1.Query1.SQL.Add('select * from employee.db');
  form1.Query1.Open;
  form1.DataSource1.DataSet:=form1.Query1;
  //以上为主窗口显示前的数据统计工作
  form1.boo:=true;
  form2.Timer2.Enabled:=false;
end;
5.在splsh窗口添加一个timer控件，在ontimer事件中添加如下代码：
if form1.boo=true then
    form2.Close;

Answer 7

www.websamba.com/softofdelphi
上面有源程序