From d424ffceb9e40963635bc57ab906ada17eb8539e Mon Sep 17 00:00:00 2001
From: n7800 <14154601-n7800@users.noreply.gitlab.com>
Date: Sat, 3 May 2025 23:33:03 +0000
Subject: [PATCH] Designer: Fix crash when pressing [Ctrl+Enter] with invalid
 name in rename dialog

---
 designer/askcompnamedlg.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/designer/askcompnamedlg.pas b/designer/askcompnamedlg.pas
index 84cfe4485f..ff7d3a4af6 100644
--- a/designer/askcompnamedlg.pas
+++ b/designer/askcompnamedlg.pas
@@ -219,7 +219,8 @@ begin
   if (Key=VK_RETURN) and (ssCtrl in Shift) then
   begin
     Key := 0;
-    ButtonPanel1.OKButton.Click;
+    if ButtonPanel1.OKButton.Enabled then
+      ButtonPanel1.OKButton.Click;
   end;
 end;