delphi中如何让登陆窗口先于主窗口出现

2025-04-15 01:16:21

推荐回答（5个）

回答（1）：

感谢，学习到了！另外在应用当中发现有点小状况，就是下方的写法会造成登录按钮需要点击两次才能进入主窗体。

if Form22.ShowModal <> mrok then

Application.Terminate;

要处理这个问题需要将上方代码改成：

if Form22.ModalResult<> mrok then

Application.Terminate;

希望能对大家有用

回答（2）：

如果只是达到你的效果,可以把主窗体设为登录窗体,在登录按键按下,登录成功后,登录窗体设为Hide,主窗口Visible设为True,或主窗口.Show;就可以了.
如果要做得漂亮一点,可以用Frame来做.主窗口Frame.Visible:=False; 登录窗口Frame1.Visible:=True;
登录成功后:主窗口Frame.Visible:=True;登录窗口Frame.Visible:=False;

回答（3）：

在主窗体里的create事件中写
if form2.showmodal <> mrok then
Application.Terminate;

form2放ok按钮，和cancel按钮
属性kind一个选择bkOK，一个选择 bkCancel即可

回答（4）：

在Project文件里写不就OK了嘛，在创建主窗体前先显示出来，验证了用户后才开始主界面的初始化

回答（5）：

选项Project -->view source

Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);

语句次序互换，改为：

Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
就可以了。