diff --git a/lcl/buttons.pp b/lcl/buttons.pp
index 4152fa14cf..530cb8cb32 100644
--- a/lcl/buttons.pp
+++ b/lcl/buttons.pp
@@ -349,7 +349,6 @@ type
     procedure CMButtonPressed(var Message: TLMessage); message CM_BUTTONPRESSED;
     procedure CMEnabledChanged(var Message: TLMessage); message CM_ENABLEDCHANGED;
   private
-    procedure DoMouseUp(var Message: TLMMouse; Button: TMouseButton);
     procedure WMLButtonDown(Var Message: TLMLButtonDown); message LM_LBUTTONDOWN;
     procedure WMLButtonUp(var Message: TLMLButtonUp); message LM_LBUTTONUP;
     procedure WMLButtonDBLCLK(Var Message: TLMLButtonDblClk); message LM_LBUTTONDBLCLK;
@@ -368,6 +367,7 @@ type
     function  DialogChar(var Message: TLMKey): boolean; override;
     procedure CalculatePreferredSize(var PreferredWidth,
       PreferredHeight: integer; WithThemeSpace: Boolean); override;
+    procedure DoMouseUp(var Message: TLMMouse; Button: TMouseButton); override;
     procedure MeasureDraw(Draw: boolean; PaintRect: TRect;
                           out PreferredWidth, PreferredHeight: integer);
     procedure MouseEnter; override;
diff --git a/lcl/controls.pp b/lcl/controls.pp
index cafb5d876e..4267a38f1b 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -1248,9 +1248,6 @@ type
     function IsVisibleStored: Boolean;
     procedure DoBeforeMouseMessage;
     procedure DoConstrainedResize(var NewLeft, NewTop, NewWidth, NewHeight: Integer);
-    procedure DoMouseDown(var Message: TLMMouse; Button: TMouseButton;
-                          Shift: TShiftState);
-    procedure DoMouseUp(var Message: TLMMouse; Button: TMouseButton);
     procedure SetAccessibleName(AValue: TCaption);
     procedure SetAccessibleDescription(AValue: TCaption);
     procedure SetAccessibleValue(AValue: TCaption);
@@ -1421,6 +1418,8 @@ type
     procedure TripleClick; virtual;
     procedure QuadClick; virtual;
     function GetMousePosFromMessage(const MessageMousePos: TSmallPoint): TPoint;
+    procedure DoMouseDown(var Message: TLMMouse; Button: TMouseButton; Shift: TShiftState); virtual;
+    procedure DoMouseUp(var Message: TLMMouse; Button: TMouseButton); virtual;
     procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); virtual;
     procedure MouseMove(Shift: TShiftState; X,Y: Integer); virtual;
     procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); virtual;