启动窗体问题

Question

program gzgl;uses
  Forms, controls,
  Unit_main in 'Unit_main.pas' {Form_main},
  Unit_money in 'Unit_money.pas' {Form_money},
  Unit_login in 'Unit_login.pas' {Form_login};{$R *.res}begin
  Application.Initialize;
  Form_login:= TForm_login.Create(Application);
  Form_login.ShowModal;
 //这里怎么写 
  Application.CreateForm(TForm_main, Form_main);
  Application.CreateForm(TForm_money, Form_money);
  Form_login.Hide;
  Form_login.Release;
  Application.Run;
end.Form_login上有一个BUTTON，用来判断密码是否正确，我想模拟一个单击事件，不知道怎么写，大侠帮帮忙！

Answer 1

这样写，假设FORM1是主窗口，FRM_LOGIN是登陆窗口，在TFORM1的SHOW事件中写FRM_LOGIN.SHOWMODAL;

Answer 2

begin
  Application.Initialize;
  Form_login:= TForm_login.Create(Application);
  if Form_login.ShowModal <> mrOK then Application.Terminate;  ////////这里
 //这里怎么写 
  Application.CreateForm(TForm_main, Form_main);
  Application.CreateForm(TForm_money, Form_money);
  Form_login.Hide;
  Form_login.Release;
  Application.Run;
end.>>Form_login上有一个BUTTON，用来判断密码是否正确，我想模拟一个单击事件
直接在Button上写代码就可以了，为什么要模拟??上面的方法就不用模拟了。
注意：在验证通过后，Self.ModalResult := mrOK;

Answer 3

不行啊，FORM_LOGIN上有个EDIT，如果用上面的方法只有一在EDIT中输入东西就产生内存错误，有什么好方法？

Answer 4

Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form1.Button1.Click;
  Application.Run;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('OK');
end;

Answer 6

你完全可以在主窗体的activate事件中在启动登陆窗口，判断密码，密码正确，主窗体显示，密码不正确，主窗体destroy

Answer 7

Frm_Login:=TFrm_Login.Create(Application);
      try
        Frm_Login.ShowModal;
        if Frm_Login.isLogin then begin
          Application.CreateForm(TForm_main, Form_main);
          Application.CreateForm(TForm_money, Form_money);
          Application.Run;
        end;
      finally
        Frm_Login.Free;
      end;
--------------
Public
var
   isLogin:Boolean;procedure TFrm_Login.BBn_OKClick(Sender: TObject);
begin
 isLogin=False;
 if iUser='fd' and iPwd='**' then
 isLogin=True; 
end;

Answer 8

直接调用一下buttonclick()过程就可以了

Answer 9

begin
  Application.Initialize;
  Application.CreateForm(TForm_main, Form_main);
  Application.CreateForm(TForm_money, Form_money);
  Form_login:= TForm_login.Create(Application);
  if   Form_login.ShowModal=1 then
  begin
   Application.Run;
    
  end
  else
      Application.Terminate;
end.