From a073c3f7922731f1244bd8770fcfecc1996fe5f4 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Thu, 12 Mar 2026 20:52:14 +0100
Subject: [PATCH] feat: support cancelling server login dialog

Refs #349
---
 source/dbconnection.pas | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index b9639a05..141c1269 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -3258,10 +3258,15 @@ begin
     Dialog.lblPrompt.Caption := f_('Login to %s:', [FParameters.Hostname]);
     Dialog.editUsername.Text := FParameters.Username;
     Dialog.editPassword.Text := FParameters.Password;
-    Dialog.ShowModal;
-    FParameters.Username := Dialog.editUsername.Text;
-    FParameters.Password := Dialog.editPassword.Text;
-    Dialog.Free;
+    if Dialog.ShowModal = mrOk then begin
+      FParameters.Username := Dialog.editUsername.Text;
+      FParameters.Password := Dialog.editPassword.Text;
+      Dialog.Free;
+    end
+    else begin
+      Dialog.Free;
+      raise EDbError.Create(_('Login cancelled'));
+    end;
   end;
 
   // Prepare connection