jfaguiar Posted May 29, 2015 Report Share Posted May 29, 2015 Boa tarde amigos. Alguém sabe me dizer se tem como saber qual em qual controle (posição de aControls[]) estar o foco. Exemplo: @ 1,1 GET cGET1 VALID( MsgInfo("Que control é este ?"),.T. ) @ 2,1 GET cGET2 Obrigado Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 1, 2015 Report Share Posted June 1, 2015 Já tem resposta sobre isto no forum, procure por aControls. abs. Quote Link to comment Share on other sites More sharing options...
gibaf Posted June 1, 2015 Report Share Posted June 1, 2015 Boa tarde amigos. Alguém sabe me dizer se tem como saber qual em qual controle (posição de aControls[]) estar o foco. Exemplo: @ 1,1 GET cGET1 VALID( MsgInfo("Que control é este ?"),.T. ) @ 2,1 GET cGET2 Obrigado Static Function ChkControl(oDlg) Local x,oCon For x := 1 To Len(oDlg:aControls) oCon := oDlg:aControls[x] If oCon:ClassName() $ "TCOMBOBOX/TMULTIGET/TGET" If oCon:lFocused //Esta Focado Endif Endif Next x Return(Nil) Quote Link to comment Share on other sites More sharing options...
jfaguiar Posted June 1, 2015 Author Report Share Posted June 1, 2015 Olá Giba, kapiaba. Valeu as colaborações. Estava procurando uma solução para passar nas combobox com <ENTER>, na vr FW 13.07 xHabour. Resolvi assim: @ 01,01 SAY "Formulário:" @ 02,01 COMBOBOX oCbx VAR cOPCQTDE ITEMS {"Por Tonelada","Por Qtde. Coletada"} SIZE 70,800 OF oDlg; ON CHANGE ( nOPCQTDE := oCbx:nAt,oCbx:Refresh() ); VALID IF( GetASyncKey( VK_RETURN ) .OR. GetASyncKey( VK_DOWN ), .T.,.T. ) @ 03,01 SAY "Informe o ano:" @ 04,01 GET cANO PICT "9999" kapiaba 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.