Главная страница
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.064 c
4-1080402288
kentavr
2004-03-27 18:44
2004.05.16
SendMESSAGE


3-1082465433
Visnuk
2004-04-20 16:50
2004.05.16
Помогите с ADO


4-1080544622
Akvilon
2004-03-29 11:17
2004.05.16
окно выбора папки


1-1083595163
Реактор
2004-05-03 18:39
2004.05.16
Загрузка процессора


1-1083654182
real_dimedrol
2004-05-04 11:03
2004.05.16
Перенаправление вывода win16-программ