Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > TTreeView - отключить обработку стрелок

Автор: XperT 16.7.2009, 17:49

При нажатии на кнопки влево/вправо мне нужно чтобы переход осуществлялся в дерева на следующий/предыдущий видимый нод.
Это я сделал в обработчике нажатия компонента TTreeView.
Но кроме этого TTreeView еще делает и стандартную обработку нажатия этих клавиш. Например, если нажать влево когда выделенный нод нижнего уровня, то выделится его перент. Как мне этого избавится?

Автор: Keeper89 16.7.2009, 18:09

Цитата(XperT @ 16.7.2009, 18:49

)

Но кроме этого TTreeView еще делает и стандартную обработку нажатия этих клавиш

Что это значит?

Цитата(XperT @ 16.7.2009, 18:49

)

Например, если нажать влево когда выделенный нод нижнего уровня, то выделится его перент. Как мне этого избавится?

Так по каким узлам все-таки нужно перемещаться - по любым или по веткам одного уровня?

Автор: XperT 16.7.2009, 18:14

Стандартная отработка нажатия этих клавиш у компонентов такая:
Если нажать вправо - то выделяется следующий ноди или чайлд (если есть), если нажать влево - перент (если есть) или предыдущий нод

Нужно:
Если нажать влево - выделяется следующий видимый нод, вправо - предыдущий видимый нод.

Автор: Keeper89 16.7.2009, 18:19

Цитата(XperT @ 16.7.2009, 19:14

)

Если нажать влево - выделяется следующий видимый нод, вправо - предыдущий видимый нод.

Видимый - имеется ввиду "не свернутый" (т.е. переход только по раскрытым пунктам не зависимо от уровня вложенности)?

Автор: XperT 16.7.2009, 18:23

Именно, для этого я использую функцию GetNextVisible.

Автор: Keeper89 16.7.2009, 18:39

У меня все работает, скорее всего вы не переключали фокус обратно на дерево. Во пример для кнопки Назад:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  prevVNode: TTreeNode;
begin
  with TreeView1 do
  begin
    prevVNode := Selected.GetPrevVisible;
    if Assigned(prevVNode) then Select(Selected.GetPrevVisible);
    SetFocus;
  end;
end;

Автор: XperT 16.7.2009, 18:43

Немного не верно выразился, под кнопками "Назад" и "Вперед" я имел ввиду клавиши на клавиатуре smile

Автор: Keeper89 16.7.2009, 18:47

Цитата(XperT @ 16.7.2009, 19:43

)

Немного не верно выразился, под кнопками "Назад" и "Вперед" я имел ввиду клавиши на клавиатуре smile

XperT, тогда имеется ввиду кнопки Влево и Вправо (т.к. кнопки Вниз и Вверх как раз перемещаются по видимых узлам)?

Автор: XperT 16.7.2009, 18:50

Верно, опять не то сказал

Автор: Keeper89 16.7.2009, 18:56

Тогда так:

Код


procedure TForm1.TreeView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_LEFT: Key := VK_UP;
    VK_RIGHT: Key := VK_DOWN;
  end;
end;

З.Ы. При этом, конечно потеряется возможности разворачивать/сворачивать узлы кнопками Вправо/Влево.

Автор: XperT 16.7.2009, 19:06

Идеально. Большое спасибо smile