Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник
Коллекция курьезных вопросов из форумов
Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / rsdn.org

 
Чтобы не потерять эту дискуссию, сделайте закладку « предыдущая ветвь | форум | следующая ветвь »

ListBox запретить реакцию на нажатие клавиш.


валя ©   (01.03.18 14:02

При нажатии стрелки влево\вправо ListBox пролистывается вверх или вниз. Вобщем нужно чтобы он не реагировал на #37 #39. Такое сделать возможно?


Rouse_ ©   (01.03.18 15:00[1]

Отнаследуйся и запрети, чтоб глобально не ловить


валя ©   (01.03.18 16:22[2]


> Rouse_ ©   (01.03.18 15:00) [1]

примерчик, если можно?


валя ©   (01.03.18 16:44[3]

Как отловить более-менее понятно, не понятно как в отловленном событии определить что событие пришло от определенного контрола.


валя ©   (01.03.18 16:49[4]

или достаточно определить событие и обработчик в классе?


валя ©   (01.03.18 18:08[5]

все спасибо.


валя ©   (10.03.18 21:54[6]


> Отнаследуйся и запрети, чтоб глобально не ловить


Все отлавливается кроме ситуации когда нажимаешь любую клавишу и в ListBox и срабатывает пролистывание списка на строки начинающиеся на символ нажатой клавиши.  В WM_KEYDOWN запретить не получается. Подскажите как это запретить???


Leonid Troyanovsky ©   (11.03.18 09:14[7]


> валя ©   (10.03.18 21:54) [6]

> начинающиеся на символ нажатой клавиши.  В WM_KEYDOWN запретить
> не получается. Подскажите как это запретить???


procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key .. then
    key := #0;
end;

--
Regards, LVT.


Германн ©   (12.03.18 01:54[8]


> Leonid Troyanovsky ©   (11.03.18 09:14) [7]
>
>

Стрелки влево\вправо не вызывают OnKeyPress.


Германн ©   (12.03.18 02:34[9]

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if (Key = VK_LEFT) or (Key = VK_RIGHT) then Key:=0;
end;


версия для печати

Написать ответ

Ваше имя (регистрация  E-mail 







Разрешается использование тегов форматирования текста:
<b>жирный</b> <i>наклонный</i> <u>подчеркнутый</u>,
а для выделения текста программ, используйте <code> ... </code>
и не забывайте закрывать теги! </b></i></u></code> :)


Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо