delphi子窗体载入本地文本的问题

Question

我设置的form1为主窗体form2为主窗体
form1登录成功后显示form2
th2:=tform2.Create(self);
th2.Show;但是我在form2中 create 或者 show事件中 写 form2.Memo1.Lines.LoadFromFile('type.txt');
载入本地一个文本文件 却怎么也载入不了在程序  Project-Options  中设置的 Auto-create forms 是 form1 和 form2 form1为主窗体 
如果把 form2 设置成 Available forms 的情况下 form2.Memo1.Lines.LoadFromFile('type.txt');  就直接报错求解答

Answer 1

form2.Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'type.txt'); 

Answer 2

还是不行 我本来就是用的 定义了软件的运行目录 var s:string ;
form2.Memo1.Lines.LoadFromFile(slj+'type.txt');
不行 求解答

Answer 3

应该是你的路径不对，用绝对路径就可以的，计算出绝对路径，还要在将子窗体设置为手动创建，要不就不要第一句创建窗体代码。
  form2:=tform2.Create(self);
  form2.Memo1.Lines.LoadFromFile('D:\type.txt');
  form2.Show;获取资源文件绝对路径
function getFilePath(sFileName: string): string; //计算资源文件的绝对路径
var sLoad: string;
begin
    sLoad := extractfilepath(Application.Exename);
    sLoad := sLoad + sFileName;
    Result := sLoad;
end;  form2:=tform2.Create(self);
  form2.Memo1.Lines.LoadFromFile(getFilePath('type.txt'));
  form2.Show;

Answer 4

表示还是不行 我晕菜了  form2.Memo1.Lines.LoadFromFile('D:\type.txt');

Answer 5

如果form2设置为主窗体的时候 可以载入 但是 form1为主窗体的时候 form2.show 出来就不行了 为什么呢 有没有其他的解决办法？

Answer 6

我解决了 要加上 inherited;  继承才行~ 感谢各位 结贴给分喽