Xailer & OZ Software

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

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