delphi - TVirtualStringTree 的 Ctrl+End 行为

Question

当用户按 Ctrl+End 时，VirtualStringTree 会垂直跳转到末尾，这很好，但也可以水平跳转。我不希望它水平地走到尽头。水平滚动应保持原样。

如何判断这一点？

Answer 1

以下代码中的 OnKeyAction 处理程序检查是否按下了 CTRL + HOME 或 CTRL + END，如果按下，则滚动(仅垂直)到顶部或底部，具体取决于按下的内容。

procedure TForm1.VirtualTreeKeyAction(Sender: TBaseVirtualTree;
  var CharCode: Word; var Shift: TShiftState; var DoDefault: Boolean);
begin
  if (ssCtrl in Shift) then
  case CharCode of
    VK_HOME:
    begin
      DoDefault := False;
      VirtualTree.ScrollIntoView(VirtualTree.GetFirst, False);
    end;
    VK_END:
    begin
      DoDefault := False;
      VirtualTree.ScrollIntoView(VirtualTree.GetLast, False);
    end;
  end;
end;