Página 1 de 1

TDBCardBox:nIndex Scope violation (protected)

Publicado: Dom Sep 20, 2020 6:26 pm
por gabo1
Hola buen dia.
De la ayuda de xailer
Al igual que un TBrowse siempre existe una tarjeta activa que se corresponde con la propiedad nIndex, que igualmente se puede modificar para cambiar la tarjeta activa por código.
Estoy tratando de obtener la tarjeta activa en el Evento "OnCardChange" o existe otro forma de saber la tarjeta en la que esta posicionado la celda
usando las flechas de control del teclado ?

Re: TDBCardBox:nIndex Scope violation (protected)

Publicado: Dom Sep 20, 2020 7:29 pm
por Jose Lopez
Gabo1,
A ver si te sirve. Si no te preparo algo mas ampliado

METHOD CardBox1CardClick( oSender, oItem, nPos, nX, nY ) CLASS TFormSeleccionOpcionesDefecto
Local nIndexTabla := 0, lCancelar := .F., nIndexUbicacion := 0

MsgAlert( "Registro: " + LTrim( Str( nPos ) ) + " item: " + LTrim( Str( oItem:nItem ) )+CRLF+ToString(oItem:nColumn) )

RETURN Nil

Saludos
Pepe.

Re: TDBCardBox:nIndex Scope violation (protected)

Publicado: Lun Sep 21, 2020 2:47 pm
por gabo1
Hola pepe, gracias por tu respuesta.
Pero la intención es obtener los valores actuales de la tarjeta que tiene el "cursor" usando las flechas arriba y abajo del teclado.
la forma que me dices si funciona pero usando el raton.
con el metodo OnCardChange obtengo los valores del indice anterior (nOldPos) y posterior (nNewPos) pero no logro saber como obtener los valores de nNewPos. si yo hago oSender:aItems[nNewpos,nNumCard] no funciona :-(
Saludos!