如何编写起动窗口?停留几秒后自动转到主窗口中?

Question

如何编写起动窗口,此窗口中显示的是公司名称,开发者等内容?停留几秒后自动转到主窗口中,起动窗口关闭,这要如何实现?

Answer 1

1 主窗口showmodal about窗口
2 再about窗口中设置timer，间隔为n秒
3 在ontimer中form.close;

Answer 2

使用CSplashWindow, very easy

Answer 3

在工程文件里写....begin
  Application.Initialize;
  try
    frmLoad:=TfrmLoad.Create(Application);
    frmLoad.Show;
    frmLoad.Update;
    Application.CreateForm(TfrmDM, frmDM);
    Application.CreateForm(TfrmMain, frmMain);
  finally
    frmLoad.Free;
    frmLoad:= nil;
  end;
  frmMain.ShowModal;
  Application.Run;
end.frmLoad就是起动窗口,当数据窗口frmDM和主窗口frmMain创建后就自行关闭,因为创建数据窗口的时候要连接数据库,所以有一段时间间隔, 否则没必要用起动窗口吧...

Answer 4

firetoucher(风焱) ( ) 信誉：107  2003-06-13 09:08:00  得分:0 
 
 
  1 主窗口showmodal about窗口   ---------这是什么意思,about是什么窗口呢?谢谢  
 

Answer 5

比如说有两个窗口form1,form2。在菜单project->options里面进行设置将form2设置成非自动创建窗体。然后再在菜单project->view socure 在修改里面以下代码：
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}var
form2:tform2;
begin
  Application.Initialize;
  form2:=tform2.Create(application);
  form2.Show;
  form2.Update;
  Application.CreateForm(TForm1, Form1);
  form2.Close;
  form2.Free;
  Application.Run;
end.

Answer 6

主窗口showmodal about窗口那主窗口在要在何处showmodal about窗口,oncreate处会出错啊!

Answer 7

可以了,我是用firetoucher(风焱)方法实现的,在oncreate中调用
form2:=TForm2.create(self);
form2.showmodal;就行了!另处两位老兄的方法我一会儿再试,不过也的给你们加分
我总分再加20吧!