From c37fccab76ddce7e7d438b4b663a73f9e0a00285 Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Sat, 23 Aug 2025 22:34:40 +0300
Subject: [PATCH] IDE/MessagesWnd: Support Ctrl-F also before the popup menu is
 opened.

---
 ide/etmessageframe.pas | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/ide/etmessageframe.pas b/ide/etmessageframe.pas
index 5d29595d98..35a95af348 100644
--- a/ide/etmessageframe.pas
+++ b/ide/etmessageframe.pas
@@ -2254,6 +2254,12 @@ begin
     TMessagesFrame(Owner).HideSearch;
     Key := 0;
   end
+  // search, needed because Find menu shortcut is initialized only at popup event.
+  else if (Key = VK_F) and (Shift = [ssCtrl]) then
+  begin
+    TMessagesFrame(Owner).FindMenuItemClick(nil);
+    Key := 0;
+  end
   // search next
   else if (Key = VK_F3) and (Shift = []) then
   begin
@@ -3466,7 +3472,6 @@ begin
     HideSearch;
     Key := 0;
   end
-
   else if (Key in [VK_RETURN, VK_F3]) and (Shift = []) then
   begin
     MessagesCtrl.SelectNextOccurrence(true);
@@ -3476,7 +3481,10 @@ begin
   begin
     MessagesCtrl.SelectNextOccurrence(false);
     Key := 0;
-  end;
+  end
+  // Eat Ctrl-F
+  else if (Key = VK_F) and (Shift = [ssCtrl]) then
+    Key := 0;
 end;
 
 procedure TMessagesFrame.SearchNextSpeedButtonClick(Sender: TObject);