procedure TMainForm.FormCreate(Sender: TObject);
begin
if FileExists(ExtractFilePath(Paramstr(0))+'config.ini') then
begin
ShowMessage('文件已存在')
end
else
begin
ClientMainChild.ShowModal; //打开子窗体
end;
end;
//我是想在窗体启动时判断配置文件是否存在,如果存在的话就直接读取,如果不存在的话就打开一个子窗体,进行设置然后写入配置文件,现在连第一步都实现不了,这样子总是出错。。新手学习。。请指点!
begin
if FileExists(ExtractFilePath(Paramstr(0))+'config.ini') then
begin
ShowMessage('文件已存在')
end
else
begin
ClientMainChild.ShowModal; //打开子窗体
end;
end;
//我是想在窗体启动时判断配置文件是否存在,如果存在的话就直接读取,如果不存在的话就打开一个子窗体,进行设置然后写入配置文件,现在连第一步都实现不了,这样子总是出错。。新手学习。。请指点!
1、打开某MDIForm前,要检查该窗口是否已经打开,
2、打开的话,让它默认尺寸显示
3、没有打开,就创建它并显示。