Examples Delphi

  1. Home
  2. Delphi
  3. Examples
  4. 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;