登录窗口不是系统主窗口 但又需要最先显示 用delphi怎么编写代

Posted 2020-10-15 癫狂编程

主窗体FormShow事件(主窗体为Form1为例,Form2为登陆窗体)  

procedure TForm1.FormShow(Sender: TObject);
begin
  if Form2.ShowModal=mrOk then
  begin
    Form2.Close;
  end
  else
    Application.Terminate;
end;

登陆窗的通过验证  

procedure TForm2.Button1Click(Sender: TObject);
begin
  if Edit1.Text = ‘通过‘ then
    Form2.ModalResult := mrOk
end;