전체 프로그램을 닫지 않고 창을 닫는 방법? 내 응용 프로그램에서

Question

내가 (이 TEdits 및 로그인 버튼) 사용자가 자신의 계정에서 로그인 할 때 LoginForm 및 AccountForm

LoginForm 메인 폼으로 설정, 그것은 형태이다의 말을하자 두 가지 형태가 . 사용자가 로그인 정보를 입력하고 연결하면 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; 

감사합니다

Answer 1

우수 제품 Display a LogIn/Password Dialog Before the Main Form is Created의 소스 코드 here을 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 기본 폼하지 마십시오. Application.CreateForm 대신 LoginForm := TLoginForm.Create을 사용하여 loginform을 만들면 양식이 응용 프로그램 기본 양식으로 설정되지 않습니다. 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. 

또한 존재가 열려 특정 형태를 확인 자신의 응용 프로그램 메인 루프를 만들 수 있지만, 좀 더 좀 더 어렵다 및 위의 솔루션보다 취약합니다.