我想在TForm中调用MDI表,并且在MDI表的Create中自动创建CHILD表,可有时提示“Access Violation at address CD4041B0.Read of address CD4041B0.”,有时提示“No,Active MDIForm”,以下错误,谁能帮助我,急!急!急!
OK inifile:=TIniFile.Create('.\sys.ini'); for j:=0 to 11 do begin child:=tmdi_child.Create(Application); alias:=inifile.ReadString(IntToStr(j),'alias',Format(namecap,[j])); child.Caption:=alias; child.Tag:=j; aliaslist.AddObject(alias,child); end; cb_chnnum.Items.AddStrings(aliaslist); Enablet_show;
OK inifile:=TIniFile.Create('.\sys.ini'); for j:=0 to 11 do begin child:=tmdi_child.Create(Application); alias:=inifile.ReadString(IntToStr(j),'alias',Format(namecap,[j])); child.Caption:=alias; child.Tag:=j; aliaslist.AddObject(alias,child); end; cb_chnnum.Items.AddStrings(aliaslist); Enablet_show;
inifile:=TIniFile.Create('.\sys.ini');
for j:=0 to 11 do
begin
child:=tmdi_child.Create(Application);
alias:=inifile.ReadString(IntToStr(j),'alias',Format(namecap,[j]));
child.Caption:=alias;
child.Tag:=j;
aliaslist.AddObject(alias,child);
end;
cb_chnnum.Items.AddStrings(aliaslist);
Enablet_show;
inifile:=TIniFile.Create('.\sys.ini');
for j:=0 to 11 do
begin
child:=tmdi_child.Create(Application);
alias:=inifile.ReadString(IntToStr(j),'alias',Format(namecap,[j]));
child.Caption:=alias;
child.Tag:=j;
aliaslist.AddObject(alias,child);
end;
cb_chnnum.Items.AddStrings(aliaslist);
Enablet_show;