Get class and focus

[driessen]

Hello,

A small question ?

How can I read which GET has the clause ?
I want to do make a jump to another screen but I need to restore the focus on the right GET.

Thanks in advance.

[hmpaquito]

Hi,

Code: Select all  Expand view

hFocus:= GetFocus()

.....  // blah, blah, blah...

SetFocus(hFocus)
 

Regards

[Antonio Linares]

Michel,

nAt = AScan( oDlg:aControls, { | o | o:hWnd == GetFocus() } )

...

oDlg:aControls[ nAt ]:SetFocus()

[Demont Brecht]

Michel

Changing focus seems always to be dificult and unprecditable.

I have much better results with :

Code: Select all  Expand view

*****************************************************************************************
function xSetFocus( oObx )
**************************
// function from local.fivewin.english 4/1/2003 Kleyber Derick
local oTempo:=""
local lGet := oObx:ClassName $ "TGET TMULTIGET"
define timer oTempo interval 10 of oObx:oWnd ;
  action (oObx:SetFocus(), IIF(lGet , oObx:SetPos(0) , ), oTempo:Deactivate() )
activate timer oTempo

return nil
 

[driessen]

Hello guys,

Thanks a lot for all you help.

I'll be trying out your suggestions.