| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Marky
Master
Registrado: 28 Dic 2002Mensajes: 251Ubicación: Las Rozas - Madrid (España)
|
 Publicado: Mar 25 Nov, 2003 6:59 pm Asunto: TDBGrid y Mouse wheel |
 |
|
Hola!
¿Alguien sabe porque la rueda del ratón (mouse wheel) no funciona correctamente en un TDBGrid, TDBLookupListBox o en un TDBLookupComboBox? Estoy usando BCB 5.0 y al recorrer los registros va a "golpes" y no va de un registro a otro. ¿Alguien sabe como solucionar esto?
Muchas gracias |
|
| Volver arriba |
|
 |
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Mar 25 Nov, 2003 7:22 pm Asunto: |
|
|
creo que te puede interesar, utlizar, las funciones del
| Código: |
TControl::OnMouseWheel
TControl::OnMouseWheelDown
TControl::OnMouseWheelUp
-------------------------------------------
Occurs when the mouse wheel is rotated upward.
__property TMouseWheelUpDownEvent OnMouseWheelUp = {read=FOnMouseWheelUp, write
=FOnMouseWheelUp};
Description
Write code in the OnMouseWheelUp event handler to perform actions when the mouse wheel is rotated upward. OnMouserWheelUp occurs only if the message is not already handled in an OnMouseWheel event handler.
----------------------------------------------
|
Sacado de la Ayuda de BCB6, no se si realmete tenga soporte para BCB5
puede que te interese programar, manualmente en cada uno de los eventos.. si los tiene el TDBGrid, pues lo hereda del Componente TControl
| Código: |
The type of the OnMouseWheel event handler.
Unit
Controls
typedef void __fastcall (__closure *TMouseWheelEvent)(System::TObject* Sender, Classes::
TShiftState Shift, int WheelDelta, const Types::TPoint &MousePos, bool &Handled);
Description
Sender is the object capturing the mouse wheel events.
Shift is the state of the Alt, Ctrl, and Shift keys and the mouse buttons.
WheelDelta is how many times the wheel was rotated.
MousePos is the position of the mouse pointer.
Handled is whether or the control handled the event. (Set handled to False to have the object’s parent handle the event.)
|
y puedes modificar su conetido de acuerdo a como quieres que se comporte
Espero haberte ayudado..
_________________
 |
|
| Volver arriba |
|
|
Marky
Master
Registrado: 28 Dic 2002Mensajes: 251Ubicación: Las Rozas - Madrid (España)
|
| Publicado: Lun 08 Dic, 2003 1:03 pm Asunto: |
|
|
Hola!
Gracias por la respuesta pero no consigo que capture el movimiento de la rueda de forma "suave". Va como siempre: a "golpes". ¿Nadie se ha enfrentado nunca a este problema? |
|
| Volver arriba |
|
|
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Lun 08 Dic, 2003 3:37 pm Asunto: |
|
|
checa el soft de tu mouse, puede ser eso tambien...
_________________
|
|
| Volver arriba |
|
|
Marky
Master
Registrado: 28 Dic 2002Mensajes: 251Ubicación: Las Rozas - Madrid (España)
|
| Publicado: Mar 09 Dic, 2003 6:32 pm Asunto: |
|
|
Bueno, pues ya encontré la solución. Como siempre estaba en Pascal (Delphi) pero convertir el código fue sencillo. Se define el evento que saltará:
| Código: |
void __fastcall TMD::MensajesAplicacion(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 = false;
}
}
|
y luego en el form principal:
| Código: |
Application->OnMessage = MD->MensajesAplicacion;
|
Funciona genial tanto para TDBGrid, TDBLookupComboBox, TDBLookupListBox. Supongo que a alguien le servirá de ayuda.
Nos vemos!! y gracias por todo! |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
