Ir al contenido


Foto

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


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 29 agosto 2016 - 08:16

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


delphi
  1. function MouseWheelExists: Boolean;
  2. begin
  3. Result := GetSystemMetrics(SM_MOUSEWHEELPRESENT) <> 0;
  4. end;

Ejemplo de Uso:


delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3. if MouseWheelExists then
  4. ShowMessage('Tiene ruedita..');
  5. end;

Saludos!


  • 2




IP.Board spam blocked by CleanTalk.