如何在软件creat是设置密码输入窗体

Question

在主程序窗口开始之前，调用密码窗口就行了！
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
这样就先调用密码窗口了！
procedure TForm2.Button1Click(Sender: TObject);
begin
if edit1.Text ='' then
   begin
       form2.hide ;
       form1.ShowModal;
       form1.update;
   end
else
   showmessage('密码不正确，请重新输入');
end;

Answer 1

在主程序窗口开始之前，调用密码窗口:
procedure TForm_main.FormCreate(Sender: TObject);
begin
  login_form:=Tlogin_form.Create(self);
  login_form.ShowModal;
end;设置全局变量 close_mainform ,先不要打开主程序窗口
procedure TForm_main.FormActivate(Sender: TObject);
begin
  if close_mainform=True then
     begin
       Form_main.Close;
     end
end;