Wykrycie bezruchu myszy w delphi

0

Jaki mógłby być kod źródłowy w Delphi, który np zmieniałby napis na pasku tytułowym formy jeżeli np myszka nie bylaby poruszana przez np. 10sek.

0

w timerze daj co milisekunde porownywanie punktu gdzie jest mysz z poprzednim punktem. jesli ppunty sa takie same to dodaj 1 do zmiennej jesli inne to wyzeruj zmienna. i przypisz do punktu pozycje myszy.
potem musisz sprawdzic czy zmienna osiagnela jakas wartosc i zmienic tekst na belce

0

Dzięki za odpowiedzi wszystkim pozdro!!!

0

eee, timer co 1-dną milisekunde.. ciekawe czy muli taki program...
to ja mam pomysł na zrobienie tego samego, ale timer bedzie co sekunde ;> chociaż takie rozwiązanie też nie jest idealne, ale lepszego nie znam, a nie chce mi sie szukać.

zadeklaruj zmienną typu boolean, i procedure przechwytującą WM_MOUSEMOVE, i w tej pocedurze daj boolean := true;
a w timerze sprawdzaj tego booleana, jak bedzie false, to znaczy ze nie ruszono, a jak true to ruszono. no i jak nie ruszono to do zmiennej np 'czas' dodawaj 1, jak 'czas' osiągnie 10 to znaczy ze przez 10 sekund nie ruszano myszką

0

thanks!!!!

0

Tyle że to nie wykryje ruchu myszy gdy aktywna jest inna aplikacja. Żeby to zrobic trzeba załozyc globalnego hooka na mysz.

1 użytkowników online, w tym zalogowanych: 0, gości: 1