diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index 9f85815ccb..e2b602b42a 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -1854,6 +1854,7 @@ type
   public
     constructor Create(TheOwner: TComponent); override;
     function CheckMenuDropdown: Boolean; virtual;
+    procedure Click; override;
     procedure GetCurrentIcon(var ImageList: TCustomImageList;
                              var TheIndex: integer); virtual;
     procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer;
diff --git a/lcl/include/toolbutton.inc b/lcl/include/toolbutton.inc
index 0d6966b4d2..ba83dab082 100644
--- a/lcl/include/toolbutton.inc
+++ b/lcl/include/toolbutton.inc
@@ -758,6 +758,11 @@ begin
     Result := FToolBar.CheckMenuDropdown(Self);
 end;
 
+procedure TToolButton.Click;
+begin
+  inherited Click;
+end;
+
 procedure TToolButton.GetCurrentIcon(var ImageList: TCustomImageList;
   var TheIndex: integer);
 begin