如何在THorzScrollBox中滚动TListview？

在THorzScrollBox中滚动TListView，可以通过以下步骤实现：

创建一个THorzScrollBox控件和一个TListView控件，并将TListView控件放置在THorzScrollBox控件内部。
设置THorzScrollBox的AutoScroll属性为True，以启用自动滚动功能。
将TListView的Align属性设置为alTop，使其填充THorzScrollBox的顶部。
在TListView的OnMouseWheel事件中，编写代码来处理滚动事件。可以使用TListView的TopItem属性来获取当前可见的第一个列表项，然后根据鼠标滚轮的滚动方向，调用TListView的Scroll方法来滚动列表项。

以下是一个示例代码：

procedure TForm1.ListViewMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
  ListView: TListView;
begin
  ListView := TListView(Sender);
  
  // 根据滚动方向调整滚动距离
  if WheelDelta > 0 then
    ListView.Scroll(-ListView.ItemHeight, 0)
  else
    ListView.Scroll(ListView.ItemHeight, 0);
  
  Handled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  HorzScrollBox: THorzScrollBox;
  ListView: TListView;
begin
  // 创建THorzScrollBox控件
  HorzScrollBox := THorzScrollBox.Create(Self);
  HorzScrollBox.Parent := Self;
  HorzScrollBox.Align := alClient;
  HorzScrollBox.AutoScroll := True;

  // 创建TListView控件
  ListView := TListView.Create(Self);
  ListView.Parent := HorzScrollBox;
  ListView.Align := alTop;
  ListView.OnMouseWheel := ListViewMouseWheel;
  
  // 添加一些列表项用于测试
  ListView.Items.Add.Caption := 'Item 1';
  ListView.Items.Add.Caption := 'Item 2';
  ListView.Items.Add.Caption := 'Item 3';
  ListView.Items.Add.Caption := 'Item 4';
  ListView.Items.Add.Caption := 'Item 5';
end;

这样，当鼠标滚轮滚动时，TListView将在THorzScrollBox中进行滚动。你可以根据实际需求调整滚动距离和滚动方向的处理方式。

腾讯云相关产品和产品介绍链接地址：