virtualtreeview программно перемещает панель выбора (реагируя на нажатие клавиши вверх / вниз) - PullRequest
Новая
       43

virtualtreeview программно перемещает панель выбора (реагируя на нажатие клавиши вверх / вниз)

0 голосов
/ 04 апреля 2019

Как переместить выделение в древовидной структуре, сродни dbgrid.next/dbgrid.previous?

Я пытаюсь переместить строку выбора в VST при нажатии клавиши «вниз / вверх» в элементе управления TEdit.

Это я пробовал, работает, но мне кажется слишком многословным для простой задачи: 

procedure TfrmUserManager.edtTaskFilterKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Node: PVirtualNode;
begin
  if not Assigned(vstTasks.FocusedNode) then
    Node:= vstTasks.GetFirst
  else
    Node:= vstTasks.FocusedNode;
  if key = VK_DOWN then
    vstTasks.FocusedNode:= vstTasks.GetNextVisible(Node)
  else if key = VK_UP then
    vstTasks.FocusedNode:= vstTasks.GetPreviousVisible(Node);
  vstTasks.Selected[vstTasks.FocusedNode] := True;
  if key in [VK_DOWN,VK_UP] then key := 0;
end;

Можно ли это упростить? ТИА.

...