procedure TMainForm.FormCreate(Sender: TObject);
begin
  if FileExists(ExtractFilePath(Paramstr(0))+'config.ini') then
     begin
     ShowMessage('文件已存在')
     end
     else
     begin
     ClientMainChild.ShowModal;  //打开子窗体
     end;
end;
//我是想在窗体启动时判断配置文件是否存在,如果存在的话就直接读取,如果不存在的话就打开一个子窗体,进行设置然后写入配置文件,现在连第一步都实现不了,这样子总是出错。。新手学习。。请指点!

解决方案 »

  1.   

    你这样写当然会发生错,如果create的时候,你的要打开窗体还没create,然后你就showmodel会不报错吗?
      

  2.   

    在这句代码(ClientMainChild.ShowModal;  //打开子窗体)前加一句:ClientMainChild := TFORM.CREATE(APPLICATION);
      

  3.   

    用onformshow
      

  4.   

    MDI子窗口,应先创建,再显示。具体地说,
    1、打开某MDIForm前,要检查该窗口是否已经打开,
    2、打开的话,让它默认尺寸显示
    3、没有打开,就创建它并显示。