Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.15;
Скачать: CL | DM;

Вниз

Чтобы сообщения клавы получала только форма?   Найти похожие ветки 

 
Viacheslav   (2006-09-04 05:13) [0]

Имеется форма(KeyPteview=TRUE), на форме TListView.
Как мне сделать так чтобы при нажатии клавиш все сообщения получала ТОЛЬКО форма, а список нет.


 
Elen ©   (2006-09-04 07:54) [1]


> Viacheslav

Создай для формы обработчик, потом OnClick и ListView1.OnClick:=formclick;


 
Gens ©   (2006-09-04 08:01) [2]

Используй для формы обработчик OnKeyPress, keyPreview := true, в списке можно тоже в обработчике OnKeyPress вбить Form.KeyPress;


 
Elen ©   (2006-09-04 08:13) [3]


> Создай для формы обработчик, потом OnClick и ListView1.OnClick:
> =formclick;

Пардон - опечатка не OnClick а OnKeyPress


 
MBo ©   (2006-09-04 08:45) [4]

Цель какая?


 
Viacheslav   (2006-09-06 05:08) [5]


> Цель какая?

Допустим нажали мы <Ctrl+Up> в TForm1.OnKeyDown мы его оброботали, но при этом в списке курсор(выделеная строка) побежала вверх. А как чтобы не бежала???


 
Loginov Dmitry ©   (2006-09-06 08:11) [6]


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if (ssCtrl in Shift) and (Key = VK_UP) and
    (ActiveControl = ListBox1)
 then
   Key := 0;
end;


При этом KeyPreview = True



Страницы: 1 вся ветка

Текущий архив: 2006.10.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.056 c
15-1158938224
MAster_
2006-09-22 19:17
2006.10.15
Ребята как написать плагин на Total


5-1141156195
Noby
2006-02-28 22:49
2006.10.15
Запись CD при помощи TXPBurn


3-1155885573
Patrick
2006-08-18 11:19
2006.10.15
TimeOut Expired


3-1155280294
rasvv
2006-08-11 11:11
2006.10.15
Базы данных в потоках


11-1120242557
Владимир Кладов
2005-07-01 22:29
2006.10.15
Zoomer3