Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Вниз

как использовать кнопки типа "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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.032 c
3-1082171384
Урмат
2004-04-17 07:09
2004.05.16
MasterSource


11-1069673509
Fktrc
2003-11-24 14:31
2004.05.16
TKOLOpenSaveDialog - вызывается только при второй попытке


1-1083709932
spogi
2004-05-05 02:32
2004.05.16
Block in XP


8-1077381731
Cerber
2004-02-21 19:42
2004.05.16
png


1-1083433797
Leos
2004-05-01 21:49
2004.05.16
Прокрутка





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский