在线等，简单的delphi登录窗体问题 会追加的。

来源：百度知道 编辑：UC知道 时间：2024/06/08 09:12:14
详细情况：
我的Form1为主窗体（所有功能都做好了）
现在想新建个form2作为登录窗体
用户名为：123456密码为：123456（怎么显示为*）
单击登录按钮，主窗体出现，登录窗体关闭。
form2出现时form1不能出现哦。
请写出详细代码，谢谢。
1L想拿分没那么容易，Ctrl+c谁不会啊，
ihzuq 先谢谢你，实现了一部分了，但点击退出后form2是退出了，但form1就出来了。
其余的回答也谢谢。

uses
unit2;//登录窗体的单元名

在Form1(主窗体)的OnCreate事件里写:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm := False; //不显示主窗体
Form2:=TForm2.Create(nil); //建立登录窗体
Form2.ShowModal; //打开非模式窗体
Form2.Free; //释放窗体
Application.ShowMainForm := True;
Form1.Show; //显示主窗体
end;

Form2就可以加上密码的判断了,但在登录后要Close掉它.
比如说:
在Form2上有个按钮,名为登录:
procedure TForm2.Button1Click(Sender: TObject);
begin
if 密码=123456 then
Close
else
ShowMessage('密码错误');
end;

要在Delphi->Project->Options->Forms中,将Form2设成Available forms
==================================================================
至于密码栏如何显示为星号,这个可以在TEdit的属性里改
[PasswordChar]把#0换成*即可~

===========================新补充=================================
如果想在未登录成功的情况下,点击form2的关闭按钮或者系统关闭按钮来关闭程序也可以实现,但是需要改变我们刚才的思路了.
因为登录窗体是在主窗体的Oncreate事件里来进行的,所以form1