Desactivar el scroll del mouse

[chinosoft]

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

[[escafandra]]

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

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.

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:

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.

[chinosoft]

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

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

[chinosoft]

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

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!