FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Botones DBNavigator
Hola, me gustaría saber cómo simular la botonera de un DBNavigator. Concretamente, quiero simular el efecto de al mantener pulsado el puntero del ratón sobre un botón seguir recorriendo registros; y evitar tener que hacer click cada vez que se desee activar el siguiente registro.
El tema creo que se complica porque uso un TActionsBar para la botonera de navegación con 4 TActions. Uso D7. No puedo usar (¿o tal vez sí?) un DBNavigator porque los controles de edición no son dbaware. Agradecería mucho cualquier ayuda. |
#2
|
||||
|
||||
Vamos por partes.
Un botón en un DBNavigator no es otra cosa que un SpeedButton con un Timer integrado. El Timer lo usa para llamar repetidamente al método Click del botón. Si quisieras simular esto con tu propio SpeedButton bastaría entonces colocar un Timer y asignar los eventos:
Pero como dices, la cosa se complica cuando usas un ActionToolbar ya que me parece que no hay una forma directa de asignar los eventos OnMouseDown y OnMouseUp a cada botón. Lo que puedes hacer es definir tú mismo estos eventos:
con los mismos parámetros que los correspondientes eventos y con la implementación como en el SpeedButton. Para asignar estos eventos lo puedes hacer en el evento OnCreate del formulario:
donde I es el índice que corresponda al botón que uses. ¡Ah! Pero hay un pequeño problema. Cada control es de tipo TCustomActionControl y esta clase no publica estos eventos. De manera que tienes que recurrir al truco de heredar una clase 'de palo' de esta clase
y hacer el moldeo de tipos:
// Saludos |
#3
|
|||
|
|||
¡Genial!
Una solución perfecta. El resultado es justo lo que andaba buscando.
Muchas gracias. |
#4
|
||||
|
||||
Solo un pequeño agregado, de no ser un ActionToolbar, yo recomendaría utilizar
TTimerSpeedButton (De la unit de ejemplos Spin.pas) que hace presisamente lo que comenta Román. Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|