大家来帮我啊，一个很简单的问题

Question

有一个问题是我在我的作业里加了一个密码form，就是一运行就会先出现个密码form，让你输入密码，但是哪个form我是做好了，但运行时不出来，每次运行时都是出来第一个主form，所以我想请教各位怎样才能把那个密码form显示出来，还有，当我输入密码是，在edit里应该是***，而不是显示你要输入的字母或数字，各位高手帮我下这个问题吧，代码应该怎样写，谢谢了

Answer 1

显示密码窗口写在工程文件里
TEdit的PasswordChar属性设为*后,输入的东西就显示为*******了

Answer 2

unit Unit1;//主窗体interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}end.---------------------unit Unit2;//登陆窗体interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);//登陆按钮
begin
  ModalResult := mrOK;
end;procedure TForm2.Button2Click(Sender: TObject);//放弃登陆按钮
begin
  ModalResult := mrCancel;
end;procedure TForm2.FormCreate(Sender: TObject);
begin
  Edit1.Text := '';
  Edit1.PasswordChar := '*';
end;end.---------------------//工程文件program Project1;uses
  Forms, Windows, Controls,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
  with TForm2.Create(nil) do
    try
      ShowModal;//先模式显示登陆窗体
      if ModalResult = mrOK then//如果点击了登陆按钮（假设密码正确）则显示主窗体
         Application.CreateForm(TForm1, Form1);
    finally
      Free;
    end;
  Application.Run;
end.

Answer 3

对了，首先从工程文件列表中取除，然后自己写代码到工程文件中。
只要***，修改TEDit的属性就可以了（Password）