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

Вниз

Как отследить момент отпускания левой клавиши мыши?   Найти похожие ветки 

 
leonidus ©   (2005-06-29 08:18) [0]

Мастера подскажите пожалуйста. У меня программа находится в трее и мониторит клаву и мышь, для этого постоянно работает таймер:

procedure TForm1.Timer_Profile_DetectorTimer(Sender: TObject);
..
..
if HiWord(GetKeyState(VK_LBUTTON))<>0  then
...

суть в том что если нажать левую клавишу мыши программа получает об этом уведомление м как только она "узнает" что левая клавиша отпущена сразу должна среагировать. Вот и вопрос как получить событие при отпускании клшавиши мыши по возможности без хуков?


 
Kerk ©   (2005-06-29 08:22) [1]

SetWindowsHookEx + F1 :)


 
leonidus ©   (2005-06-29 08:47) [2]

>Kerk а без хуков никак? Почему же момент нажатия можно отследить без хуков, а отпускания не удается?


 
Kerk ©   (2005-06-29 08:53) [3]

leonidus ©   (29.06.05 8:18)
if HiWord(GetKeyState(VK_LBUTTON))<>0  then


Оно говорит, что клавиша нажата, но не отлавливает момент нажатия. Так же можно узнать, что она отпущена, но отловить момент отпускания без хука имхо нельзя.


 
leonidus ©   (2005-06-29 09:23) [4]

>Kerk понял, спасибо.


 
leonidus ©   (2005-06-29 09:38) [5]

>Kerk ну по большому счету я обойдусь и фактом отпускания клавишы мыши, у меня тик таймера маленький поэтому я смогу почти точно получить информацию о факте отпускания клавиши. А как всетаки узнать что клавиша отпущена?



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

Форум: "WinAPI";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.028 c
4-1120426642
alex-drob
2005-07-04 01:37
2005.08.21
Блокировка клавиши Windows


14-1122828139
Fin
2005-07-31 20:42
2005.08.21
EDGE в центре Москвы.


4-1120125721
TDionis
2005-06-30 14:02
2005.08.21
перехват mb_вторая_слева


14-1122487440
Starcom
2005-07-27 22:04
2005.08.21
Как узнать кто аттакует?


3-1120804272
Goga
2005-07-08 10:31
2005.08.21
Открытие TADODataSet внутри TService





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский