клавиши вправо-влево в ListBoxe

← →
petyun (2002-02-08 13:37) [0]

Уважаемые мастера! Известно, что в ListBoxе по Items можно бегать с помощью клавиш: вверх, вниз, вправо, влево. А как запретить в ListBoxe клавиши вправо-влево? Т.е. их нужно назначить другой процедуре.

← →
amamed_3071 © (2002-02-08 15:22) [1]

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key in [39,37] then
begin
key:=0
//Delay chto xochesh
end;
end;

клавиши вправо-влево в ListBoxe Найти похожие ветки