Fredy,
Si sobrecargas cualquier evento y devuelves .F. podrás ejecutar tu propio
código sin que se llame a los procedimientos por defecto. También puedes
ejecutar el código que desees, y por último devolver .T. o NIL y en dicho
caso se ejecutran las operaciones por defecto.
EVENT OnClickFirst( oSender )
EVENT OnClickPrevious( oSender )
EVENT OnClickNext( oSender )
EVENT OnClickLast( oSender )
EVENT OnClickInsert( oSender )
EVENT OnClickDelete( oSender )
EVENT OnClickEdit( oSender )
EVENT OnClickUpdate( oSender )
EVENT OnClickCancel( oSender )
EVENT OnClickRefresh( oSender )
Si no estan sobrecargados o devuelven NIL o .T. se llama directamente a:
::oDataSet:GoTop()
::oDataSet:nSkip( -1 )
::oDataSet:nSkip()
::oDataSet:GoBottom()
::oDataSet:AddNew()
::oDataSet:Delete()
::oDataSet:Edit()
::oDataSet:Update()
::oDataSet:Cancel()
::oDataSet:RefreshCurrent()
Un saludo,
"Fredy" <
fredy@airtel.net> escribió en el mensaje
news:[email=
MPG.1cb6b2e6e8c2ef8c9896e8@news.ozs.com...]
MPG.1cb6b2e6e8c2ef8c9896e8@news.ozs.com...[/email]
Hola,
Acabo de darme cuenta de que TDbNavigator hereda de TToolBar, así que
por ejemplo, en la consulta que hacía un poco más arriba de cómo
"sombrear" el botón Update, basta con hace oDbNavigator:BtnDisable(8)
Por lo tanto, para pulsar un botón se utilizará el método propio del
TToolButton, lo cual me complica mucho las cosas, ya que lo que quiero
es sobrecargar la pulsación de ese botón para insertar un código despues
del ::Super:Click(), y si utilizo la clase XToolButton resulta que no
solo estoy sobrecargando el botón del DbNavigator, sino todos los
botones de todas las ToolBar de toda la aplicación.
Estoy intentando entrar a través de oDbNavigator:aButtons[1]:bAction,
pero me dice que mensaje no encontrado. (porque al parecer los
toolbutton no tienen OnClick())
Supongo que por dentro el aButtons[x]:bAction (o el que sea) llamará a
un método dentro de TDbNavigator. ¿Es así? ¿Cómo se llama?.
Vaya, ¿Por qué será que mi pregunta me recuerda a cuando diseccionaba
ranas en el instituto?

Un saludico,
Fredy