关于THorzScrollBox组件操作的技术疑问

1. 应用程序启动时直接显示GridLayout2 #

在窗体的OnShow事件（避免OnCreate阶段控件未完全初始化）中，设置滚动框的水平滚动条位置，将GridLayout2的左边缘对齐滚动框的可视区域：

procedure TYourForm.FormShow(Sender: TObject);
begin
  // 直接定位到GridLayout2的左侧，使其显示在可视区域
  HorzScrollBox1.HorzScrollBar.Position := GridLayout2.Left;
  
  // 如果需要让GridLayout2居中显示，可使用以下计算方式
  // HorzScrollBox1.HorzScrollBar.Position := 
  //   (GridLayout2.Left + GridLayout2.Width div 2) - (HorzScrollBox1.ClientWidth div 2);
end;

2. ShowScrollBars=false时实现鼠标拖动布局 #

默认不支持，需要手动处理滚动框的鼠标事件来实现拖动逻辑：

1. 先在窗体类中声明私有变量：

private
  FDragStartPos: TPoint;
  FIsDragging: Boolean;

2. 添加三个鼠标事件的处理代码：

procedure TYourForm.HorzScrollBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    FIsDragging := True;
    // 记录拖动起始的鼠标X坐标和当前滚动条位置
    FDragStartPos := Point(X, HorzScrollBox1.HorzScrollBar.Position);
  end;
end;

procedure TYourForm.HorzScrollBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if FIsDragging then
  begin
    // 根据鼠标移动偏移量调整滚动条位置
    HorzScrollBox1.HorzScrollBar.Position := FDragStartPos.Y - (X - FDragStartPos.X);
  end;
end;

procedure TYourForm.HorzScrollBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    FIsDragging := False;
end;

绑定好这三个事件后，即可在隐藏滚动条的情况下通过鼠标拖动移动布局。

3. 判断TGridLayout是否完全占据屏幕 #

分两种场景实现判断逻辑：

场景1：判断布局是否完全覆盖屏幕工作区（排除任务栏） #

function IsGridFullScreen(AGrid: TGridLayout): Boolean;
var
  GridScreenRect: TRect;
begin
  // 转换布局的本地坐标为屏幕坐标
  GridScreenRect := AGrid.BoundsRect;
  GridScreenRect := AGrid.ClientToScreen(GridScreenRect);
  // 对比屏幕工作区矩形
  Result := RectEquals(GridScreenRect, Screen.WorkAreaRect);
end;

场景2：判断布局是否以alClient对齐且完全填充父容器 #

如果你的需求是确认布局是否通过Align=alClient完全占据父控件（后续父控件全屏时自然覆盖屏幕），可使用：

function IsGridAlignedToClient(AGrid: TGridLayout): Boolean;
begin
  Result := (AGrid.Align = alClient) and
            (AGrid.Left = 0) and (AGrid.Top = 0) and
            (AGrid.Width = AGrid.Parent.ClientWidth) and
            (AGrid.Height = AGrid.Parent.ClientHeight);
end;

内容的提问来源于stack exchange，提问作者neg1414