1. 程式人生 > >登錄窗口不是系統主窗口 但又需要最先顯示 用delphi怎麽編寫代

登錄窗口不是系統主窗口 但又需要最先顯示 用delphi怎麽編寫代

edit nat show form sender ati for 需要 result

主窗體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;

登錄窗口不是系統主窗口 但又需要最先顯示 用delphi怎麽編寫代