diff --git a/lcl/interfaces/qt/qtwsbuttons.pp b/lcl/interfaces/qt/qtwsbuttons.pp
index fe68521397..7cb4526073 100644
--- a/lcl/interfaces/qt/qtwsbuttons.pp
+++ b/lcl/interfaces/qt/qtwsbuttons.pp
@@ -42,8 +42,8 @@ type
     class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
     class procedure SetGlyph(const ABitBtn: TCustomBitBtn; const AValue: TButtonGlyph); override;
     class procedure SetLayout(const ABitBtn: TCustomBitBtn; const AValue: TButtonLayout); override;
-    class procedure SetMargin(const ABitBtn: TCustomBitBtn; const AValue: Integer); virtual;
-    class procedure SetSpacing(const ABitBtn: TCustomBitBtn; const AValue: Integer); virtual;
+    class procedure SetMargin(const ABitBtn: TCustomBitBtn; const AValue: Integer); override;
+    class procedure SetSpacing(const ABitBtn: TCustomBitBtn; const AValue: Integer); override;
   end;
 
   { TQtWSSpeedButton }