Mega Code Archive

 

Categories / Delphi / Hardware

 

Check if the mouse has a wheel

Title: check if the mouse has a wheel? function MouseWheelExists: Boolean; begin Result := GetSystemMetrics(SM_MOUSEWHEELPRESENT) 0; end; procedure TForm1.Button1Click(Sender: TObject); begin if MouseWheelExists then ShowMessage('Mouse has wheel.'); end;