Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TTreeView - отключить обработку стрелок 
V
    Опции темы
XperT
Дата 16.7.2009, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: нет
Всего: 4



При нажатии на кнопки влево/вправо мне нужно чтобы переход осуществлялся в дерева на следующий/предыдущий видимый нод.
Это я сделал в обработчике нажатия компонента TTreeView.
Но кроме этого TTreeView еще делает и стандартную обработку нажатия этих клавиш. Например, если нажать влево когда выделенный нод нижнего уровня, то выделится его перент. Как мне этого избавится?
PM MAIL   Вверх
Keeper89
Дата 16.7.2009, 18:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



Цитата(XperT @  16.7.2009,  18:49 Найти цитируемый пост)
Но кроме этого TTreeView еще делает и стандартную обработку нажатия этих клавиш

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

Цитата(XperT @  16.7.2009,  18:49 Найти цитируемый пост)
Например, если нажать влево когда выделенный нод нижнего уровня, то выделится его перент. Как мне этого избавится? 

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


--------------------
PM MAIL WWW   Вверх
XperT
Дата 16.7.2009, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: нет
Всего: 4



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

Нужно:
Если нажать влево - выделяется следующий видимый нод, вправо - предыдущий видимый нод.
PM MAIL   Вверх
Keeper89
Дата 16.7.2009, 18:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



Цитата(XperT @  16.7.2009,  19:14 Найти цитируемый пост)
Если нажать влево - выделяется следующий видимый нод, вправо - предыдущий видимый нод. 

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

Это сообщение отредактировал(а) Keeper89 - 16.7.2009, 18:19


--------------------
PM MAIL WWW   Вверх
XperT
Дата 16.7.2009, 18:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: нет
Всего: 4



Именно, для этого я использую функцию GetNextVisible
PM MAIL   Вверх
Keeper89
Дата 16.7.2009, 18:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



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

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;



--------------------
PM MAIL WWW   Вверх
XperT
Дата 16.7.2009, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: нет
Всего: 4



Немного не верно выразился, под кнопками "Назад" и "Вперед" я имел ввиду клавиши на клавиатуре  smile 
PM MAIL   Вверх
Keeper89
Дата 16.7.2009, 18:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



Цитата(XperT @  16.7.2009,  19:43 Найти цитируемый пост)
Немного не верно выразился, под кнопками "Назад" и "Вперед" я имел ввиду клавиши на клавиатуре  smile  

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

Это сообщение отредактировал(а) Keeper89 - 16.7.2009, 18:57


--------------------
PM MAIL WWW   Вверх
XperT
Дата 16.7.2009, 18:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: нет
Всего: 4



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

Это сообщение отредактировал(а) XperT - 16.7.2009, 18:51
PM MAIL   Вверх
Keeper89
Дата 16.7.2009, 18:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



Тогда так:
Код

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;

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

Это сообщение отредактировал(а) Keeper89 - 16.7.2009, 18:58


--------------------
PM MAIL WWW   Вверх
XperT
Дата 16.7.2009, 19:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: нет
Всего: 4



Идеально. Большое спасибо smile
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.1610 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.