创建窗体内存异常~求解

创建窗体内存错误~~求解
程序初始化时先显示登录窗体

Delphi(Pascal) code

begin  Application.Initialize;  if TLoginFrm.Execute then  begin    Application.MainFormOnTaskbar := True;    Application.CreateForm(TMainFrm, MainFrm);  Application.Run;  end  else    Application.Terminate;end.

登录窗体显示

Delphi(Pascal) code

class function TLoginFrm.Execute;begin  with TLoginFrm.Create(nil) do  begin    try      Result := ShowModal = mrOk;    finally      Free;    end;  end;end;

我又在登录窗体上加了一个注册按钮，showmodal注册窗体，结果内存错误，求教大大们~~

Delphi(Pascal) code

procedure TLoginFrm.lbl_RegisterClick(Sender: TObject);begin  with RegisterFrm.Create(nil) do  begin    ShowModal;  end;end;

[解决办法]
多少个模态窗体是没有关系的

with TRegisterFrm.Create(nil) do

查看更多 下一篇