急！ 关于窗体？？？

Question

很简单.主界面还是主窗体.
在工程文件中加入
  Application.ShowMainForm := FALSE ;
这样主窗体在一开始就不会显示
然后你把 密码输入窗体的 Visible 设为 TRUE 
就可以实现了.
以下是工程文件的例子.
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.RES}begin
  Application.Initialize;
  Application.ShowMainForm := FALSE ;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, FormPassword);
  Application.Run;
end.

Answer 1

好象不行吧！
试试这样。
password为主窗体。
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.RES}begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.在password窗体form2里加一个edit1,一个Button1,下面是Button1的onclick事件。procedure TForm2.Button1Click(Sender: TObject);
begin
  if edit1.Text = '1' then
    begin
    form1.show ;
    hide ;
    end
  else
    close ; 
end;在form1的onclose事件里关闭form2:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  form2.close ;
end;

Answer 2

  不要用Application.CreateForm方法,这样不好.
  应为:
  设置一个全局Boolean (PassOK)量,
  FormPassword:=TForm2.Create(Application);
try
  PassOK:=....;
finally
  FormPassWord.Free;
end;
  if PassOK then Application.CreateForm......
  else Exit;
  Application.Run;