auto create forms只保留主窗体Form2,其余窗体都在Available forms。Form2的OnShow事件中调用: Application.CreateForm(TForm1, Form1);//创建登陆窗体 if Form1.ShowModal() <> mrOK then//如果登陆失败就退出进程 ExitProcess(1);Form2的按钮一单击事件: if not Assigned(Form3) then Application.CreateForm(TForm3, Form3); Form3.ShowModal;Form2的按钮二单击事件: if not Assigned(Form4) then Application.CreateForm(TForm4, Form4); Form4.ShowModal;
Application.CreateForm(TForm1, Form1);//创建登陆窗体
if Form1.ShowModal() <> mrOK then//如果登陆失败就退出进程
ExitProcess(1);Form2的按钮一单击事件:
if not Assigned(Form3) then
Application.CreateForm(TForm3, Form3);
Form3.ShowModal;Form2的按钮二单击事件:
if not Assigned(Form4) then
Application.CreateForm(TForm4, Form4);
Form4.ShowModal;
Form2做主窗体 在入口处处理下。先打开Form1.登录正确后打开FORM2.关闭FORM1.
至于你的Form2打开FORM3、4,LS的方法不错。可以实现。