|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
И снова Tlistview )
Всем привет.
Опять возникло несколько вопросов по этому компоненту 1 ) Как убрать возможность пролистывания строк стрелочками на клавиатуре ? Пробовал так Код:
procedure Tfrm1.lv1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=38 then exit; // стрелка Вверх if key=40 then exit; // стрелка Вниз end; end. 2) У листвью есть неприятная особенность . Допустим строка видна наполовину ( по вертикали ) , мы кликаем по ней и листвью прокручивает список вверх , чтобы строка стала полностью видимой . Можно его отучить от этого ? Спасибо . Надеюсь кто-нибудь поможет ) |
#2
|
||||
|
||||
Идея правильная, но ,видимо, с подобным ты раньше не сталкивался ,
немного измени: Код:
if key=38 then key:=0; // стрелка Вверх if key=40 then key:=0; // стрелка Вниз Проверил - у меня работает. |
#3
|
|||
|
|||
Спасибо !
А по 2-му вопросу никто ничем помочь не может ? |
#4
|
||||
|
||||
Блин...
Хмм, ну я не думаю, что это вообще возможно сделать, я уж точно не знаю как, тем более, что прокручивание списка, чтобы полностью показать элемент - это основа, рабочая область любого окна в проводнике - тоже список, и действует он по тем же правилам. Тут два выхода - либо долго и упорно копаться в исходниках с целью переписать компонент - либо забить, тем более, что в других подобных компонентах - напр. ListBox - то же самое.
|