Jak sprawdzić czy myszka jest ze scrollem (rolką)

DevNull

Tworzymy mala funkcje:

function jest_rolka: Boolean; 
begin 
Result := GetSystemMetrics(SM_MOUSEWHEELPRESENT) <> 0; 
end; 

Wstawiamy na formę Buttona i w zdarzeniu OnClick dajemy:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
if jest_rolka then 
ShowMessage('Myszka posiada rolkę (scrolla).');
end; 

4 komentarzy

Fajne ale kazdy chyba widzi czy ma rolke na myszce(to był zart):)

Nie umieścilem tej porady od tak sobie. W przypadku kiedy piszesz jakąś aplikację, która wymaga użycia rolki, dobrą rzeczą jest sprawdzenie czy myszka ją posiada.

Albo zablokować rolkę, by nie przesuwala...

a_s_f masz bardzo dowciapne żarty...