错误

Question

我动态创建窗体关闭后在点创建就弹出
project pmain.exe raised exception class eacessviolation with message 'accessviolation at address 00403501 in module 'pmain.exe'. read of address 00000026'.process stopped. use step or run to continue.
创建其他窗体就没错

Answer 1

procedure Tfmain.RzGroup3Items0Click(Sender: TObject);
begin
if isxgxx=0 then
 begin
  fedit:=tfedit.create(application);
  fedit.WindowState:=wsmaximized;
  fedit.show;
  isxgxx:=1;
 end
 else
  begin
  fedit.WindowState:=wsmaximized;
  fedit.Show;
  end;
end;

Answer 2

你知道你为什么会出错吗 因为你create创建了窗体  可是你没有释放掉
正确的写法为procedure Tfmain.RzGroup3Items0Click(Sender: TObject);
begin
if isxgxx=0 then
 begin
  fedit:=tfedit.create(application);
  try
    fedit.WindowState:=wsmaximized;
    fedit.show;
    isxgxx:=1;
  finally
    fedit.free;
  end;
 end
 else
  begin
  fedit.WindowState:=wsmaximized;
  fedit.Show;
  end;
end;

Answer 3

动态创建窗体的步骤我给你写上步骤  你自己在研究下你其他的窗体按照我的步骤来创建就不会有这样的异常了  创建窗体
  try
    打开窗体
  finally
    释放窗体
  end;这样就不会有LZ的问题了 `~~  嘿嘿 分全搞来````