Foros Club Delphi - Desactivar el scroll del mouse

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Desactivar el scroll del mouse (https://www.clubdelphi.com/foros/showthread.php?t=54743)

Desactivar el scroll del mouse

Holas tengo una consulta:

¿Hay alguna forma de desactivar el scroll del mouse, asi cuando estoy en un DBGrid no me cambia de renglon?.

desde ya Muchas Gracias :)

No lo he probado, pero una forma eficaz sería interceptar el mensaje WM_MOUSEWHEEL y evitar su actuación. Lo puedes interceptar en la funcion miembro

Código:

virtual void __fastcall WndProc(Messages::TMessage &Message);

La sobrecargas, e interceptas el mensaje de forma que si se produce no llame a WndProc de la clase base.

Código:

virtual void __fastcall WndProc(Messages::TMessage &Message){

    .

    .

    else if(Message.Msg == WM_MOUSEWHEEL) {

       if(NoQuieroMouseWhell) return;

    }



    ::WndProc(Message); // WndProc de la clase base

}

Este mensaje solo existe desde WindowsNT

Revisa también este mensaje, no de la API directamente sino del mismo Builder. Se llama en WndProc cuando se mueve la rueda del ratón:

Código:

DYNAMIC void __fastcall MouseWheelHandler(Messages::TMessage &Message);

Espero haberte ayudado. Si te funciona dínoslo, no lo he probado y me gustaría saberlo.

Saludos.

Disculpa, pero estoy medio perdido de tanta información... :)

y no soy un experto pero lo voy a probar y te cuento

Al formulario le agregue un TAppicationEvents y en el evento OnMessage escribi lo siguiente.

Código:

void __fastcall TFrmPanelCliente::AppEveMessage(tagMSG &Msg, bool &Handled)

{

    int i;

    if (Msg.message == WM_MOUSEWHEEL){



     Msg.message = WM_KEYDOWN;

     Msg.lParam = 0;

     i = Msg.wParam;



     if (i > 0) {



       Msg.wParam = VK_UP;



     }else{



       Msg.wParam = VK_DOWN;



     }



     Handled = true;



    }

}

y listo, no respondio mas el scroll.

Muchas Gracias escafandra! :)