THorzScrollBox与内部TListView触摸滚动冲突问题咨询

这个冲突确实挺棘手的——TListView的HitTest启用时会抢占鼠标输入，导致外层的THorzScrollBox无法响应水平滚动；但禁用HitTest又会让ListView失去垂直滚动的能力。我给你两个实用的解决方案，你可以根据自己的场景选择：

方案一：通过TListView的鼠标事件区分滚动方向 #

核心思路是：当用户拖动的方向是水平时，把鼠标事件传递给THorzScrollBox；如果是垂直方向，则保留给ListView自己处理。

你可以给TListView添加OnMouseDown、OnMouseMove和OnMouseUp事件，代码示例如下：

private
  FStartPos: TPoint;
  FIsHorizontalDrag: Boolean;

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    FStartPos := Point(X, Y);
    FIsHorizontalDrag := False;
  end;
end;

procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  DeltaX, DeltaY: Integer;
begin
  if ssLeft in Shift then
  begin
    DeltaX := Abs(X - FStartPos.X);
    DeltaY := Abs(Y - FStartPos.Y);
    
    // 判断是否是水平拖动（水平位移大于垂直位移）
    if DeltaX > DeltaY then
    begin
      FIsHorizontalDrag := True;
      // 将鼠标事件转发给THorzScrollBox
      HorzScrollBox1.Perform(WM_LBUTTONDOWN, MK_LBUTTON, MakeLParam(X, Y));
    end;
  end;
end;

procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if FIsHorizontalDrag then
  begin
    HorzScrollBox1.Perform(WM_LBUTTONUP, 0, MakeLParam(X, Y));
    FIsHorizontalDrag := False;
  end;
end;

这个方案的好处是不需要修改控件源码，完全通过事件处理实现，兼容性好。

方案二：自定义TListView子类，重写HitTest逻辑 #

如果方案一的响应不够流畅，你可以自定义一个TListView子类，重写它的HitTest方法，让它只在垂直拖动时拦截事件，水平拖动时放行。

type
  TCustomListView = class(TListView)
  private
    FStartDragPos: TPoint;
  protected
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
    function HitTest(Pos: TPoint; var HitInfo: THitTests): TListItem; override;
  end;

procedure TCustomListView.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  if Button = mbLeft then
    FStartDragPos := Point(X, Y);
end;

function TCustomListView.HitTest(Pos: TPoint; var HitInfo: THitTests): TListItem;
var
  DeltaX: Integer;
begin
  // 检查当前是否处于水平拖动状态
  if (GetKeyState(VK_LBUTTON) < 0) then
  begin
    DeltaX := Abs(Pos.X - FStartDragPos.X);
    if DeltaX > 5 then // 设定阈值，判断为水平拖动
    begin
      HitInfo := []; // 返回空HitInfo，让事件传递给父控件
      Result := nil;
      Exit;
    end;
  end;
  // 否则执行原有的HitTest逻辑
  Result := inherited HitTest(Pos, HitInfo);
end;

使用时把原来的TListView替换成这个自定义的TCustomListView即可。

额外提示 #

• 你可以调整方案一中的位移阈值（比如把DeltaX > DeltaY改成DeltaX > 10），让滚动的触发更符合你的操作习惯。
• 如果你的TListView里还有其他可交互控件，需要注意事件转发时的兼容性，避免出现意外的行为。

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