diff --git a/lcl/interfaces/fpgui/fpguiwsstdctrls.pp b/lcl/interfaces/fpgui/fpguiwsstdctrls.pp
index 68925a4648..c23c3222d3 100644
--- a/lcl/interfaces/fpgui/fpguiwsstdctrls.pp
+++ b/lcl/interfaces/fpgui/fpguiwsstdctrls.pp
@@ -187,6 +187,7 @@ type
     class procedure Invalidate(const AWinControl: TWinControl); override;
     class function  GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
     class procedure SetText(const AWinControl: TWinControl; const AText: String); override;
+    class procedure SetDefault(const AButton: TCustomButton; ADefault: Boolean); override;
   end;
 
   { TFpGuiWSCustomCheckBox }
@@ -484,6 +485,11 @@ begin
   TFPGUIPrivateButton(AWinControl.Handle).SetText(AText);
 end;
 
+class procedure TFpGuiWSButton.SetDefault(const AButton: TCustomButton; ADefault: Boolean);
+begin
+  TFPGUIPrivateButton(AButton.Handle).Button.Default := ADefault;
+end;
+
 {------------------------------------------------------------------------------
   Method: TFpGuiWSButton.CreateHandle
   Params:  None