Главная страница
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.031 c
1-1157642594
DroNIX
2006-09-07 19:23
2006.10.15
Нажатие клавиш по определённому алгоритму


2-1159605440
gidd
2006-09-30 12:37
2006.10.15
TWebBrowser


1-1157332401
Viacheslav
2006-09-04 05:13
2006.10.15
Чтобы сообщения клавы получала только форма?


15-1158909880
Desdechado
2006-09-22 11:24
2006.10.15
Равноденствие, новолуние, солнечное затмение


15-1158693219
BreakPoint
2006-09-19 23:13
2006.10.15
Тестирование компонента для Delphi и C++Builder