Hola a todos
Leo permanentemente este foro en busca de conocimiento, de como realizar
distintas tareas con controles y atraves de las preguntas que van haciendo
otros programadores, voy adquiriendo nuevos puntos de vista y aprendiendo.
Mi inquietu es saber si se podria modificar el control TDBnavigator. Lo he
usado y practicado con el y me agrada manejar una tabla con este objeto
porque es muy practico, actualmente uso un boton por separado para buscar
un registro cuando esta distante de la posicion donde esta el cursor. Seria
posible agregarle un boton de busqueda (al Tdbnavigator), donde se indique
si es numerica o alfabetica y al pulsar el boton se habra la ventana
correspondiente. Tal vez estoy pidiendo una utopia pero los objetos no son
mi fuerte, de ser esto posible seria excelente.
Muchas gracias
Luis Cahisa
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Al equipo de Xailer
-
Luis Cahisa
- Mensajes: 10
- Registrado: Lun Jul 16, 2007 10:39 pm
Al equipo de Xailer
Luis,
> Leo permanentemente este foro en busca de conocimiento, de como realizar
> distintas tareas con controles y atraves de las preguntas que van haciendo
> otros programadores, voy adquiriendo nuevos puntos de vista y aprendiendo.
> Mi inquietu es saber si se podria modificar el control TDBnavigator. Lo he
> usado y practicado con el y me agrada manejar una tabla con este objeto
> porque es muy practico, actualmente uso un boton por separado para buscar
> un registro cuando esta distante de la posicion donde esta el cursor.
> Seria posible agregarle un boton de busqueda (al Tdbnavigator), donde se
> indique si es numerica o alfabetica y al pulsar el boton se habra la
> ventana correspondiente. Tal vez estoy pidiendo una utopia pero los
> objetos no son mi fuerte, de ser esto posible seria excelente.
Hay una forma muy sencilla de hacer lo que quieres, y es sobrecargar la
clase T. Sería algo así:
CLASS TDBNavigator FROM XDBNavigator
METHOD New( oParent )
EVENT OnMiButtonClick( oSender )
ENDCLASS
METHOD New( oParent ) CLASS TDBNavigator
Super:New( oParent )
::AddImages( { "MiImagen" } )
::AddItem( ... ):OnClick := {|| ::OnMiButtonClick() }
RETURN Self
De esta forma, aunque en modo diseño lo veas como el control TDBNavigator
original, en tiempo de ejecución tendrás tu propio control con todo lo que
le añadas.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
> Leo permanentemente este foro en busca de conocimiento, de como realizar
> distintas tareas con controles y atraves de las preguntas que van haciendo
> otros programadores, voy adquiriendo nuevos puntos de vista y aprendiendo.
> Mi inquietu es saber si se podria modificar el control TDBnavigator. Lo he
> usado y practicado con el y me agrada manejar una tabla con este objeto
> porque es muy practico, actualmente uso un boton por separado para buscar
> un registro cuando esta distante de la posicion donde esta el cursor.
> Seria posible agregarle un boton de busqueda (al Tdbnavigator), donde se
> indique si es numerica o alfabetica y al pulsar el boton se habra la
> ventana correspondiente. Tal vez estoy pidiendo una utopia pero los
> objetos no son mi fuerte, de ser esto posible seria excelente.
Hay una forma muy sencilla de hacer lo que quieres, y es sobrecargar la
clase T. Sería algo así:
CLASS TDBNavigator FROM XDBNavigator
METHOD New( oParent )
EVENT OnMiButtonClick( oSender )
ENDCLASS
METHOD New( oParent ) CLASS TDBNavigator
Super:New( oParent )
::AddImages( { "MiImagen" } )
::AddItem( ... ):OnClick := {|| ::OnMiButtonClick() }
RETURN Self
De esta forma, aunque en modo diseño lo veas como el control TDBNavigator
original, en tiempo de ejecución tendrás tu propio control con todo lo que
le añadas.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info