tres Listbox, en un dialogo como saber quien tiene el foco

[lubin]

Buenas tardes

Tengo en un dialogo oDlg 3 listbox, como saber cual de los trs tiene el foco al momento de hacerle un click a un boton del mismo dialogo

Teniendo el ejemplo de abajo ... es decir... cuando presione el BUTTON, debe recibir la funcion MILISTA(XXXX) cual de los oLb1, oLb2, o oLb3 tiene el Foco


DEFINE DIALOG oDlg RESOURCE "GRP10_S2" TITLE OemToAnsi(Z_TITULO)
REDEFINE LISTBOX oLb1 FIELDS campo1a, campo2a, campo3a HEADERS "tita1","tita2" , "tita3" FIELDSIZES 60, 10, 20 ID 990 OF oDlg
REDEFINE LISTBOX oLb2 FIELDS campo1b, campo2b, campo3b HEADERS "titb1","titb2" , "titb3" FIELDSIZES 60, 10, 20 ID 990 OF oDlg
REDEFINE LISTBOX oLb3 FIELDS campo1c, campo2c, campo3c HEADERS "titc1","titc2" , "titc3" FIELDSIZES 60, 10, 20 ID 990 OF oDlg

REDEFINE BUTTON ID 8011 OF oDlg ACTION MILISTA( xLBX )

Gracias por su ayuda ..
Lubin

[cnavarro]

Puedes intentar cambiar el color, por ejemplo, definiendo el bGotFocus de los listbox, si es visualmente a lo que te refieres.
Tambien tienes la DATA :HasFocus de los objetos

[lubin]

Gracias CNavarro

Creo que no me deje explicar muy bien.. con el mismo ejemplo anterior ...

Imaginemos que el Usuario esta en el ListBox oLb2 (es decir que el foco esta en oLb2) y y luego presiona el Boton ID 8011 que activa la Funcion MILISTA( xLBX )

como le paso a esta funcion MILISTA (usado la variable XLBX ) en que Listbox estaba activo (es decir como le digo que estaba en "oLb2")

Saludos
Lubin

[cnavarro]

Lubin
Seguramente tampoco me expliqué bien yo

En cada control, asigna en su bGotFocus a una variable un valor que luego evalúas en el ACTION del botón

oLbx1:bGotFocus := { || nMivariable := 1 }

también te serviría igual en el bLostFocus

[lubin]

UUUmmm buena CNavarro !!!

Me parece que nos entendimos ... jajaja
Gracias estimado , lo pruebo y lo comento ...

Saludos

Lubin