如何使MDI听话

Question

你是让welcomform自动创建吧，改一下：
在dpr文件中这样创建welcomform:
welcomform := Twelcomform.create( application );
welcomform.show;你最好在dpr文件中计算延迟时间：
atime := GetTickCount;
while 1000*(GetTickCount-atime)<HowManySeconds do
begin
end;然后按正常方式创建mainform和childform：
Application.CreateForm( Tmainform, mainform );
Application.CreateForm( Tchildform, childform );你可以在显示mainform后关闭welcomform。

Answer 1

dpr文件可以采取如下方法：
  Application.Initialize;
  Application.Title := 'The Title of Application';  Screen.Cursor:=crHourGlass;
  WelcomeFrm:=TWelcomeFrm.Create(Application);
  WelcomeFrm.Show;
  WelcomeFrm.Update;  Application.CreateForm(TMainFrm, MainFrm);
  WelcomeFrm.Free;
  Screen.Cursor:=crDefault;
  Application.Run;另外如果要想在WelcomeFrm显示的同时显示系统载入的进度，
可以通过其他Form传递message给WelcomeFrm,让WelcomeFrm
显示进度（就象phoneshop等启动时显示加载项目一样)。

Answer 2

看它是如何用Welcome的(它叫Splash).