From 3265bd28bd116edfe8f5193f2e7440a41efa014d Mon Sep 17 00:00:00 2001
From: n7800 <14154601-n7800@users.noreply.gitlab.com>
Date: Sun, 22 Jun 2025 15:55:13 +0500
Subject: [PATCH] IDE/Help: Add a handler for the help button click event in
 TBaseHelpManager

---
 components/ideintf/idehelpintf.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/ideintf/idehelpintf.pas b/components/ideintf/idehelpintf.pas
index 245497a3bf..3ac24c0bc7 100644
--- a/components/ideintf/idehelpintf.pas
+++ b/components/ideintf/idehelpintf.pas
@@ -96,6 +96,7 @@ type
     procedure ShowHelpForMessage; virtual; abstract;
     procedure ShowHelpForObjectInspector(Sender: TObject); virtual; abstract;
     procedure ShowHelpForIDEControl(Sender: TControl); virtual; abstract;
+    procedure HelpButtonClick(Sender: TObject);
     function GetHintForSourcePosition(const ExpandedFilename: string;
       const CodePos: TPoint; out BaseURL, HTMLHint: string;
       Flags: TIDEHelpManagerCreateHintFlags = []): TShowHelpResult; virtual; abstract;
@@ -286,6 +287,12 @@ end;
 
 { TBaseHelpManager }
 
+procedure TBaseHelpManager.HelpButtonClick(Sender: TObject);
+begin
+  if Sender is TControl then
+    ShowHelpForIDEControl(TControl(Sender));
+end;
+
 procedure TBaseHelpManager.RegisterFPDocEditorTextButton(const aCaption, aHint: string;
   const OnExecute: TFPDocEditorTxtBtnClick);
 var