转载。。。。密码窗口（作者：wxtang）

TO kuangning(郎之间,穷人)我想两个窗口 同时显现
主窗口在下面
密码窗口在外面
又如何实现?
谢谢

解决方案 »

  1.   

    主　　题：转载。密码窗口（作者：wxtang）
    作　　者：ecamel
    所属论坛：Delphi
    问题点数：20
    回复次数：2
    发表时间：2001-9-12 13:30:01
     
      
      我有一个程序，在主窗口前要加一个密码窗口，如果密码正确就进入主窗口,否则就退出程序,请问该密码窗口应该加在什么地方?如何加？请简要告诉一下方法,谢谢! 
    回复贴子： 
    　回复人：VictorG()　(2001-6-30 15:31:17)  得20分 
    program LibAdmin;uses
      Forms,
      Controls,
      Windows,
      LibMain in 'LibMain.pas' {frmLibMain},
      Pwd in 'Pwd.pas' {frmPwd};{$R *.RES}begin
        Application.Initialize;
       Application.CreateForm(TfrmLibMain, frmLibMain);//主窗口    frmPwd:= TfrmPwd.Create(Application);//密码窗口
        frmLibMain.show ;
        try
          if frmPwd.ShowModal <> mrOK then 
            Application.Terminate ;
         finally
          frmPwd.Free;
        end;
        Application.Run;
      end;
    end. 
      

  2.   

    在主窗口的OnCreate事件中，写入PassFrm.ShowModal
      

  3.   

    不行的，要在onactivate事件中写frmPwd.ShowModal
      

  4.   

    如果想要两个窗口同时显现，就要使用类似Splash Screen的编写方法，不要用ShowModal，而应使用Show。此时，密码窗口需设为fsStayOnTop，同时要在密码窗口的PAS文件中判断密码是否正确，而不要在工程文件中判断。
      

  5.   

    我的做法是：
      1.先定义一个全局变量 HaveLogin:Boolean;
      2.在窗口的 OnCreate 中，初始化为False;
      3.在窗口的 OnActivate中，如果 HaveLogin为False则出现登陆窗口
      4.如果正确登陆进入系统，那么把haveLogin设为True
      

  6.   

    to kuangning(郎之间,穷人)　
     方法可行  但我还是不太懂下面这条件：
     if frmPwd.ShowModal <> mrOK then   
    是如何解释？
      

  7.   

    if frmPwd.ShowModal <> mrOK then 意思是输入编辑框内的密码与系统密码不相同 
      

  8.   

    mrok不是变量
    怎么知道是否与指定密码相同