Как закрыть окно, не закрывая всю программу?

Question

в моем приложении у меня есть две форм, скажем, LoginForm и AccountForm

LoginForm устанавливаются в качестве основной формы, то есть форма, когда пользователь может войти в системе от своего счета (два TEdits и кнопки Войти) , Когда пользователь вводит свои данные для входа и подключается, открывается новая форма, которая является AccountForm.

Как закрыть LoginForm при успешном завершении входа в систему без закрытия всего приложения? или на таком языке, как использовать приведенный ниже код, чтобы закрыть форму «Только для входа», но не приложение.

if (not IncludeForm.sqlquery1.IsEmpty) and (isblacklisted='0') and (isactivated='1') then 
begin // Login Successful *** Show the account window 
AccountForm.Show; 
LoginFrom.Close; // <----The problem is in this line, using this line causes the whole application to close***} 
end; 

Thankyou

Answer 1

Вы можете получить here Исходный код отличной статьи Display a LogIn/Password Dialog Before the Main Form is Created от Zarko Gajic .

Выдержка:

program PasswordApp; 

uses 
    Forms, 
    main in 'main.pas' {MainForm}, 
    login in 'login.pas' {LoginForm}; 

{$R *.res} 

begin 
    if TLoginForm.Execute then 
    begin 
    Application.Initialize; 
    Application.CreateForm(TMainForm, MainForm) ; 
    Application.Run; 
    end 
    else 
    begin 
    Application.MessageBox('You are not authorized to use the application. The password is "delphi".', 'Password Protected Delphi application') ; 
    end; 
end. 

Answer 2

Не делайте LoginForm основной формой. Если вы создаете форму входа, используя LoginForm := TLoginForm.Create вместо Application.CreateForm, форма не будет отображаться в качестве основной формы приложения. Основная форма, созданная с использованием Application.CreateForm, будет основной. Вы можете редактировать файл проекта (.dpr), чтобы изменить его так:

program YourApp; 

uses 
    Forms, 
    fLoginForm in 'fLoginForm.pas' {LoginForm}, 
    fMainForm in 'fMainForm.pas' {MainForm}; 

{$R *.res} 

begin 
    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    with TLoginForm.Create(nil) do 
    try 
    ShowModal; 
    finally 
    Free; 
    end; 
    Application.CreateForm(TMainForm, MainForm); 
    Application.Run; 
end. 

Вы также можете создать свой собственный приложение основной цикл, который проверяет конкретные формы будучи открытыми, но это немного сложнее и немного больше хрупкий, чем решение выше.