if edit1.text:='afd' then
major.show 
else
showmessage('error');

解决方案 »

  1.   

    将你的密码输入框变成mainform,
    然后调用你原来的主窗口.
      

  2.   

    不要把密码输入框变成mainform(主窗口)!
    应该在主窗口create后没show出来时把密码窗口create然后showmodal
    当用户密码输入正确后把密码窗口free.
      

  3.   

    Tedite有个passwordchar的properties,输入一个'*'就可以让输入的字符全变成‘*'号,然后看 tangyong_delphi() 说的!
      

  4.   

    同意 hxshanji(洪兴山鸡) 
    可以使用模态窗口,这样不敲密码不通过就进入不到主程序窗口中。
    yourmainform.showmodal;
      

  5.   

    同意楼上hxshanji(洪兴山鸡) 
    使用模态窗口,只能在键入正确的用户名和密码的情况下才可以进入主程序
    form2.showmodal
      

  6.   

    洪兴山鸡说的是对的.
    首先,你应该编辑你项目的.dpr文件.方法是选择project目录下的view source,你的code editor中就会
    自动打开这个文件.你会看到你的project file中有类似下面这样的代码.
    begin
      Application.Initialize;
      Application.CreateForm(Tmainform, mainform);
      Application.Run;
    end.这就是你程序开始时要运行的代码.比如你已经有了一个输入密码的form叫codeform.

    Application.CreateForm(Tmainform, mainform);
    之前加上这样几行:
    codeform:=Tcodeform.create(Application);
    codeform.showmodal;
    codeform就会在mainform产生之前出现.而且codeform不关闭,程序就不会继续进行.
    添加这两行之后,前我们刚看到的那段代码会变成下面这个样子:
    begin
      Application.Initialize;
      codeform:=Tcodeform.create(Application);
      codeform.showmodal;
      Application.CreateForm(Tmainform, mainform);
      Application.Run;
    end.然后你就可以在codeform中处理用户的输入.如果cancel则终止Application.
    不要忘了最后一定要释放 codeform.