From 20c1e10aca898dc1f22b325c223be7260b49fa43 Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Mon, 29 Nov 2021 02:29:33 +0200
Subject: [PATCH] LCL: Add TCustomFrame.CreateParams. Somehow fixes issue
 #25124.

---
 lcl/forms.pp                | 1 +
 lcl/include/customframe.inc | 7 +++++++
 2 files changed, 8 insertions(+)

diff --git a/lcl/forms.pp b/lcl/forms.pp
index 43809efae4..f0011b9921 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -314,6 +314,7 @@ type
     procedure DefineProperties(Filer: TFiler); override;
     procedure CalculatePreferredSize(var PreferredWidth,
            PreferredHeight: integer; WithThemeSpace: Boolean); override;
+    procedure CreateParams(var Params: TCreateParams); override;
     procedure UpdateOpaque;
   public
     constructor Create(AOwner: TComponent); override;
diff --git a/lcl/include/customframe.inc b/lcl/include/customframe.inc
index d63f333846..ac6360d1c1 100644
--- a/lcl/include/customframe.inc
+++ b/lcl/include/customframe.inc
@@ -197,6 +197,13 @@ begin
     WithThemeSpace);
 end;
 
+procedure TCustomFrame.CreateParams(var Params: TCreateParams);
+begin
+  inherited CreateParams(Params);
+  if (Parent = nil) and (ParentWindow = 0) then
+    Params.Style := Params.Style and not Cardinal(WS_GROUP or WS_TABSTOP or WS_CHILD);
+end;
+
 procedure TCustomFrame.UpdateOpaque;
 begin
   if ParentBackground then