No replies to this topic

[sir.dev.a.lot]

[TRUCO DELPHI] Verifica si el Raton soporta caracteristica de Rueda / Wheel.

delphi

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

Ejemplo de Uso:

delphi

procedure TForm1.Button1Click(Sender: TObject);
	begin
	  if MouseWheelExists then
	    ShowMessage('Tiene ruedita..');
	end;

Saludos!