How to know the current control?

[nageswaragunupudi]

Code: Select all

If oDlg:aControls[i]:lFocused
            //-- Your function
            exit
        end

"//--Your function" never gets executed in this case, because when the VK button is clicked no Get object has focus.

We want to know the Get that was in focus before pressing the VK button, which has already lost focus.

[James Bott]

Perhaps you could use the GETs bLostFocus codeblock to call a set/get function that stores the GET that last had focus. This would work for any control, not just GETs.

James
----------------------------

Code: Select all

oGet:bLostFocus:={| | LastFocus( self ) }

Then you could simply do:

setFocus( LastFocus() )


// Set/Get function to store last focused control
static function LastFocus( oControl )
   local oReply
   static oOldControl
   oReply:= oOldControl
   if oControl != nil
      oOldControl:= oControl
   endif
return oReply