Ctrl +結束行爲TVirtualStringTree

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;