モーダルフォームの上にメッセージを表示

Question

MessageDlgを呼び出すと、モーダルフォームが消えます。
避け方

...  
LoginForm_Create; //FfrmLoginForm created here 
try 
    if FfrmLoginForm.ShowModal = mrOk then 
    begin 
    Fuser := db_authuser(FfrmLoginForm.edtUserName.Text, FfrmLoginForm.edtPassword.text); 
    if Fuser <> nil then 
    result := 1 
    else begin 
    MessageDlg('Username or password invalid', mtError, [mbOK], 0); 
    result := -2; 
    end; 
end else //mrCancel 
    result := -1; 
finally 
    LoginForm_Close; // << FfrmLoginForm.Release; 
end; 
... 

Answer 1

ShowModalが返されたときにフォームが閉じられます。したがって、あなたが観察する行動。

ダイアログをモーダルフォームの上に表示するには、ShowModalが返される前に表示する必要があります。 mrOKコードをモーダルフォームのどのコードにでも移動させると、ModalResultからmrOKに設定されます。