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

Вниз

как использовать кнопки типа "ctrl,alt,print screen и.т.д"?   Найти похожие ветки 

 
MRAk ©   (2004-05-04 15:26) [0]

как использовать кнопки типа "ctrl,alt,print screen и.т.д"?
а то возможности ограничеваются только обычными =(


 
TUser ©   (2004-05-04 15:28) [1]

Методом оказания приемлимого по модулю давления, вектор которого направлен ортогонально к поверхности клавы.

PS. OnKeyPress if key = vk_YourKey then begin end;, если по сабжу.


 
MRAk ©   (2004-05-04 19:18) [2]

=)))) спасибо


 
MRAk ©   (2004-05-04 20:27) [3]

хотя у меня новая проблема на VK_SNAPSHOT он пишет Incompatible types


 
begin...end ©   (2004-05-04 20:31) [4]

> [3] MRAk ©   (04.05.04 20:27)

А... Тебе не OnKeyPress нужно, а OnKeyDown.


 
begin...end ©   (2004-05-04 20:34) [5]

P.S. OnKeyPress перехватывает только буковки и циферки. :)


 
MRAk ©   (2004-05-04 20:42) [6]

да ошибка пропала но работать не хочет =((


 
begin...end ©   (2004-05-04 20:43) [7]

> [6] MRAk ©   (04.05.04 20:42)

Form.KeyPreview := True ?


 
MRAk ©   (2004-05-04 20:48) [8]

vk_shift работает а vk_SNAPSHOT нет =(


 
MRAk ©   (2004-05-04 20:51) [9]

>Form.KeyPreview := True ?

да и так и так =(


 
begin...end ©   (2004-05-04 20:51) [10]

> vk_shift работает а vk_SNAPSHOT нет =(

У тебя, наверно, клавиша PrintScreen неисправна. :)


 
MRAk ©   (2004-05-04 20:59) [11]

=))))))да нет картинки то она скринит =( а вообше можно чтобы прога даже в свернутом режиме читала все нажатия? например скажем пишу я ченить в блокноте а она выдет мне сколько раз я shift нажал?


 
Gero ©   (2004-05-04 21:11) [12]


> MRAk ©   (04.05.04 20:59)

Читай статьи про хуки.


 
begin...end ©   (2004-05-04 21:14) [13]

> а вообше можно чтобы прога даже в свернутом режиме читала все нажатия?

ИМХО, форма должна быть активна.

Попробуй ещё вот что.
Опиши у себя в форме такую процедуру:

procedure Hook(var Msg: TMsg; var Handled: Boolean)

А реализация такая:

procedure Hook(var Msg: TMsg; var Handled: Boolean);
begin
 if Msg.Message = WM_KEYDOWN then
   if Msg.wParam = VK_SNAPSHOT then
     // Обрабатывай тут
end;


 
MRAk ©   (2004-05-04 21:52) [14]

эх я ешё тока учусь и до хуков не дошел вот как дойду попробую =( Спасибо большое все таки что то работает и я этим непременно воспользуюсь =))



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

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

Наверх




Память: 0.5 MB
Время: 0.024 c
14-1083030908
Думкин
2004-04-27 05:55
2004.05.16
С днем рождения! 27 апреля.


14-1082625216
Roof
2004-04-22 13:13
2004.05.16
Delphi 7 подвисает при запуске проекта


7-1081239760
[BAD]Angel
2004-04-06 12:22
2004.05.16
Как перехватить нажатие двух клавишь?


14-1082805073
ctranik
2004-04-24 15:11
2004.05.16
Ув. мастера подскажите как работать с MSDN


8-1076485798
*BES*
2004-02-11 10:49
2004.05.16
TMediaplayer для нескольких звуковух