最新消息:

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

编程 eben 84浏览 0评论

如果只是达到你的效果,可以把主窗体设为登录窗体,在登录按键按下,登录成功后,登录窗体设为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中如何让登陆窗口先于主窗口出现

发表我的评论
取消评论

表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址