Saber el foco activo

[jgayoso]

Tengo un oGet, oBrw, etc., ¿como puedo saber en tiempo de ejecución el nombre del objeto que tiene el foco?

Esto con el objeto de efectuar una accíón determinada al presionar la tecla ESC, segun donde este el foco.

Se agradece desde ya cualquier ayuda.

[Marcelo Via Giglio]

Hola,

algo asi te sirve? o es muy simple

Code: Select all

#Include "FiveWin.Ch"


Function Main()
   Local oDlg
   Local oGet1,oGet2,oGet3,oGet4
   local cVar1 := space(11)
   local nVar2 := 0
   local nVar3 := 0
   local dVar4 := date(), n

   DEFINE DIALOG oDlg from 0,0 to 400,400 pixel

   @ 15,15 get oGet1 var cVar1 picture "@!" ;
   size 50,12 of oDlg pixel 
   oGet1:bLostFocus := {|| n := 1 }
   
   @ 40,15 get oGet2 var nVar2 picture "99999" ;
   size 50,12 of oDlg pixel 
   oGet2:bLostFocus := {|| n := 2 }

   @ 65,15 get oGet3 var nVar3 picture "99999.99" ;
   size 50,12 of oDlg pixel right
   oGet3:bLostFocus := {|| n := 3 }

   @ 90,15 get oGet4 var dVar4  ;
   size 50,12 of oDlg pixel 
   oGet4:bLostFocus := {|| n := 4 }

   ACTIVATE DIALOG oDlg 

   ? 'Sali de ',n
 
 return nil

Puedes utilizar tambien bGotFocus en lugar de bLostFocus

saludos

Marcelo