delphi cxScrollBox跟随鼠标

在Delphi中的CXScrollBox组件通常是用于提供滚动功能的，它会跟随鼠标滚轮的动作来调整其内容的显示区域。如果你想让CXScrollBox响应鼠标移动并自动调整其视图，这通常涉及到事件处理和组件属性的设置。

首先，你需要将CXScrollBox的`OnMouseMove`事件与一个事件处理器关联起来，这个处理器会在鼠标移动时被触发。例如：

procedure TForm1.CXScrollBox_MouseMove(Sender: TObject; var Mouse: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // 根据鼠标的当前位置更新滚动条的位置
  ScrollBox1.HorzScrollBarPosition := X - CXScrollBox.ClientWidth / 2;
  ScrollBox1.VertScrollBarPosition := Y - CXScrollBox.ClientHeight / 2;
end;

在这个例子中，当鼠标移动时，滚动条的位置会被设置为鼠标当前位置减去滚动框自身宽度或高度的一半，这样可以保持滚动条中心对准鼠标。

然后，确保`AllowScroll`属性设为True，以便启用滚动功能：

CXScrollBox.AllowScroll := True;

这样，当你拖动鼠标在CXScrollBox区域内时，滚动条会随着鼠标的移动而动态调整，显示的内容也会随之改变。