Question

关于delphi主窗体打开子窗体问题

一个系统的设计，比如：
主程序窗体是Mainfrm。
登陆窗体名是frmlogin

在frmlogin中，已经写了个函数。
function Login: Boolean;
begin
with Tfrmlogin.Create(nil) do
begin
Result:= ShowModal() = mrOk;
Free;
end;
end;

同时：
在登陆确认按确OnClick给出：
Self.ModalResult:= mrOk;

请问，如何实现在运行主程序时，先跳登陆窗体，验证通过后，打开主程序。
是在项目文件中实现，还是直接在Mainfrm中现实更快捷高效？

请大神给出具体的方法代码，谢谢。

Answer 1

把子窗口的FormStyle改为fsMDIChild，
然后在Project -> Options -> Forms面板，把子窗口从Auto-create forms 移动到Available forms，
（Auto-create forms里应该只有主窗口）
这样就可以了！

追问

我按你说方式调过了，测试的结果是，直接弹出Mainfrm主程序窗体，登陆窗体不出来。