Colocar foco em um GET no formulário ao fechar um outro

[ANDRIL]

Pessoal estou enferrujado com a Hwgui 2.16. Tenho o form principal chamado PRINCIPAL onde tem 2 GETs (oGet1 e oGet2) e um BOTÃO. Ao acionar o botao abro um novo form chamado RESULTADO onde tem apenas um label e um botao. Ao fechar o form RESULTADO gostaria de posicionar o foco no GET do form PRINCIPAL mas não estou conseguindo com setfocus:oGet1 e também com setfocus(oGet:handle).
Como posso fazer este procedimento?

OBS: por questões de incompatibilidade com as versões mais recentes, continuo usando a 2.16.

[Toledo]

Amigo, já tentou usar oGet1:SetFocus()?

Abraços

[ANDRIL]

setfocus:oGet1

Toledo, escrevi errado no post era isso mesmo que estava usando oGet1:setfocus() e não ia.

Setando o setfocus() de dentro da function que abria o form RESULTADO não ia, então antes de chamar a função coloquei:

Código: Selecionar todos

@01,01 GET oGet1 VAR cGet1 ... ;
WHEN {|| oGet1:setfocus(), abreRESULTADO() } ;
VALID  {|| oGet1:setfocus(), abreRESULTADO() }
READ

Assim funcionou!

[Fernando queiroz]

Estando em um campo de pesquisa quando teclar seta para baixo quero mudar o foco para um browse mas esta dando erro , segue como estou fazendo com HWGUI 2.20 Build 3:

@ 150,43 GET obusca VAR vBusca SIZE 410,25 PICTURE '@!' MAXLENGTH 30 ;
ON CHANGE {|| pesq( obusca:GETTEXT()) } ;
ON KEYDOWN {|| obusca_onKeyDown( ) }


STATIC FUNCTION obusca_onKeyDown
// MsgWarning(STR(hwg_LastKey()))
If hwg_LastKey() = 40 // tecla para baixo
ThisBRW:obrowse1:hwg_SetFocus() ou hwg_SetFocus(ThisBRW:obrowse1)
Endif
RETURN

acontece esse erro

Error BASE/1072 Argument error: <>
Called from source\winapi\hedit.prg->HEDIT:ONEVENT(173)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from source\winapi\hdialog.prg->HDIALOG:ACTIVATE(135)
Called from CADCLIENTES.PRG->CADCLIENTESBRW(131)
Called from SGC.PRG->(b)MAIN(1155)
Called from SGCFU2.PRG->MENU(156)
Called from SGC.PRG->MAIN(1166)

ja tentei de outras formas mas sempre acontece esse erro

[asimoes]

Tentou somente ThisBRW:obrowse1:SetFocus() ?

[asimoes]

Voltando ao assunto tenta isso:

Código: Selecionar todos

ON KEYDOWN {|o, nKey| If( nKey == 40, ThisBRW:obrowse1:SetFocus(), obusca:SetFocus() ) } ;

[JoséQuintas]

OBS: por questões de incompatibilidade com as versões mais recentes, continuo usando a 2.16.

Não era a 2.17 ?