关于多窗体设计问题？
我现在在做一个程序 多个窗体
我现在设置的是FROM2为主窗体 在运行的时候先运行FORM1窗体 然后验证通过后进入FROM2主窗体隐藏FROM1窗体
问题
1、现在关闭FORM2S时候 FROM1没关闭 使用FROM1.CLOSE关闭不好使
2、关闭FROM1时候 程序也是没关闭完
我该设置FORM1窗体为主那 还是设置FROM2为主窗体
我在运行时候 先创建
begin
Application.Initialize;
Application.CreateForm(Tzct, zct);//ZCT主窗体
Application.Run;
end.
在主窗体开始时候创建登陆窗体
procedure Tzct.FormCreate(Sender: TObject);
begin
zct.Visible:=false;
dl:=Tdl.Create(application);
dl.Visible:=false;
dl.ShowModal;
end;
主窗体关闭事件过程代码
procedure Tzct.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dl.Close;
action:=cafree;
end;
登陆窗体关闭过程代码
procedure Tdl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dl.Close;
zct.Close;
end;
