diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas index 53d50c72d7..7526d6535a 100644 --- a/components/anchordocking/anchordocking.pas +++ b/components/anchordocking/anchordocking.pas @@ -1770,6 +1770,13 @@ var aMonitor: TMonitor; aHostSite: TAnchorDockHostSite; begin + if Site is TCustomForm then begin + if AParent=nil then + TCustomForm(Site).WindowState:=ANode.WindowState + else + TCustomForm(Site).WindowState:=wsNormal; + end else + GetParentForm(Site).WindowState:=ANode.WindowState; if Site is TAnchorDockPanel then GetParentForm(Site).BoundsRect:=ANode.BoundsRect else begin @@ -1835,14 +1842,6 @@ begin if (ANode.NodeType<>adltnPages) and (aHostSite.Pages<>nil) then aHostSite.FreePages; end; - if Site is TCustomForm then begin - if AParent=nil then - TCustomForm(Site).WindowState:=ANode.WindowState - else - TCustomForm(Site).WindowState:=wsNormal; - end else - GetParentForm(Site).WindowState:=ANode.WindowState; - end; function TAnchorDockMaster.GetNodeSite(Node: TAnchorDockLayoutTreeNode): TAnchorDockHostSite;