如果只是达到你的效果,可以把主窗体设为登录窗体,在登录按键按下,登录成功后,登录窗体设为Hide,主窗口Visible设为True,或主窗口.Show;就可以了.
如果要做得漂亮一点,可以用Frame来做.主窗口Frame.Visible:=False; 登录窗口Frame1.Visible:=True;
登录成功后:主窗口Frame.Visible:=True;登录窗口Frame.Visible:=False;
在主窗体里的create事件中写
if form2.showmodal <> mrok then
Application.Terminate;
form2放ok按钮,和cancel按钮
属性kind一个选择bkOK,一个选择 bkCancel即可
在Project文件里写不就OK了嘛,在创建主窗体前先显示出来,验证了用户后才开始主界面的初始化
选项Project –>view source
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
语句次序互换,改为:
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
就可以了。
转载请注明:落伍老站长 » delphi中如何让登陆窗口先于主窗口出现