-
При нажатии стрелки влево\вправо ListBox пролистывается вверх или вниз. Вобщем нужно чтобы он не реагировал на #37 #39. Такое сделать возможно?
-
Отнаследуйся и запрети, чтоб глобально не ловить
-
> Rouse_ © (01.03.18 15:00) [1]
примерчик, если можно?
-
Как отловить более-менее понятно, не понятно как в отловленном событии определить что событие пришло от определенного контрола.
-
или достаточно определить событие и обработчик в классе?
-
все спасибо.
-
> Отнаследуйся и запрети, чтоб глобально не ловить
Все отлавливается кроме ситуации когда нажимаешь любую клавишу и в ListBox и срабатывает пролистывание списка на строки начинающиеся на символ нажатой клавиши. В WM_KEYDOWN запретить не получается. Подскажите как это запретить???
-
> валя © (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.
-
> Leonid Troyanovsky © (11.03.18 09:14) [7]
>
>
Стрелки влево\вправо не вызывают OnKeyPress.
-
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_LEFT) or (Key = VK_RIGHT) then Key:=0;
end;