From 47e4c54d48f3247b9735ff37e43904255ddb4b56 Mon Sep 17 00:00:00 2001
From: n7800 <14154601-n7800@users.noreply.gitlab.com>
Date: Wed, 21 Aug 2024 04:02:18 +0500
Subject: [PATCH] Designer: Create a default event for a component when
 [Ctrl+Enter] is pressed

---
 designer/designer.pp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/designer/designer.pp b/designer/designer.pp
index fd7acad6e4..cf9f5fe7cc 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -2844,7 +2844,14 @@ begin
       VK_RETURN:
         if Shift = [] then
           DoShowObjectInspector
-        else
+        else if Shift = [ssCtrl] then
+        begin
+          // ToDo: create an event for each selected control (currently
+          // GetComponentEditorForSelection returns nil if more than one is selected)
+          PopupMenuComponentEditor := GetComponentEditorForSelection;
+          if assigned(PopupMenuComponentEditor) then
+            PopupMenuComponentEditor.Edit;
+        end else
           Handled := False;
 
       VK_A: