marcioe Posted March 24, 2015 Report Share Posted March 24, 2015 Tem como Saber se o Foco esta em determinado COMBO, CHECKBOX, Estou tendo um problema pois quando o Foco Esta em dos campos acima citados ele o usuario nao tem como saber onde esta o Foco tem como Exibir o Foco nesses controles Quote Link to comment Share on other sites More sharing options...
gilmer Posted March 24, 2015 Report Share Posted March 24, 2015 Você pode usar oDlg:oCtlFocus:ClassName() para saber qual classe é do controle em foco Quote Link to comment Share on other sites More sharing options...
sambomb Posted March 24, 2015 Report Share Posted March 24, 2015 Outra solução é você desabilitar o foco nesses componentes, assim evita que ao usar TAB para ir navegando nos componentes eles sejam ignorados... Quote Link to comment Share on other sites More sharing options...
Theotokos Posted March 24, 2015 Report Share Posted March 24, 2015 creio que o que o amigo quer é saber se esta em foco em tempo de execução, mas visualmente... ou seja, o usuário poder ver se este campo esta em foco ou não, assim como acontece com os get´s. Quote Link to comment Share on other sites More sharing options...
marcioe Posted March 25, 2015 Author Report Share Posted March 25, 2015 Isso mesmo amigo TheotokosTenho um sistema, onde a empresa para liberar a instalação está amarrando neste detalhe, pra poder fechar o negocio. Primeiro era o lance do banco de dados. ai provei que MYSQL era bom. Depois foi o acesso remoto. Fiz Funcionar tanto em terminal Server quanto IP Fixo. Depois o lance de LINUX, mostrei funionando no WINE, resolvido O pessoal é KriKri, mas como cliente tem que Exigir o melhor possivel. Até porque nosso objetivo é atender da melhor forma possivel. Quote Link to comment Share on other sites More sharing options...
sambomb Posted March 25, 2015 Report Share Posted March 25, 2015 Dependendo do desespero pode colocar um groupbox em volta e exibir/esconder no GetFocus/LostFocus dos componentes Quote Link to comment Share on other sites More sharing options...
alex2002 Posted March 25, 2015 Report Share Posted March 25, 2015 Realmente, isso é uma DOR de cabeça. O foco está no objeto mas não tem nada que mostra isso. E nos outros sistema isso aparece. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 25, 2015 Report Share Posted March 25, 2015 Realmente, isso é uma DOR de cabeça. O foco está no objeto mas não tem nada que mostra isso. E nos outros sistema isso aparece. Pode mostrar uma imagem Alexandre? Obg. Abs. Quote Link to comment Share on other sites More sharing options...
Theotokos Posted March 25, 2015 Report Share Posted March 25, 2015 Uma Solução postada no forum internacional é: ACTIVATE DIALOG oScr CENTERED ON INIT oScr: PostMsg ( WM_KEYDOWN, VK_TAB ) http://forums.fivetechsupport.com/viewtopic.php?f=3&t=25769&p=140859&hilit=combobox#p140859 Quote Link to comment Share on other sites More sharing options...
aferra Posted March 25, 2015 Report Share Posted March 25, 2015 opa, que legal, funcionou, o duro é ter que ficar colocando isso em tudo qto é lugar que tenha combobox, checkbox....que dureza...porem tá valendo... Theotokos 1 Quote Link to comment Share on other sites More sharing options...
alex2002 Posted March 26, 2015 Report Share Posted March 26, 2015 Kapi. Segue. Da forma que foi passado acima ficou legal. Porém, o ideal mesmo era não ter que colocar isso no INIT. Mas como disse o Alessando: "Ta Valendo" Quote Link to comment Share on other sites More sharing options...
marcioe Posted March 26, 2015 Author Report Share Posted March 26, 2015 Obrigado a todos, ajuda, mas terei que carregar muita pedra, ma agradeço a tos que se empenharam RM me ajudar Quote Link to comment Share on other sites More sharing options...
sambomb Posted March 26, 2015 Report Share Posted March 26, 2015 opa, que legal, funcionou, o duro é ter que ficar colocando isso em tudo qto é lugar que tenha combobox, checkbox....que dureza...porem tá valendo... Na verdade não precisa, só alterar o On Init do dialog.prg e rodar os objetos da tela verificando se tem um item válido com a dica do Gilmer, mata todos os coelhos com uma cajadada só Quote Link to comment Share on other sites More sharing options...
aferra Posted March 26, 2015 Report Share Posted March 26, 2015 ou, tendo ideias loucas que não precisa mexer em nada. kkkkkkkkk dentro do fivewin.ch #xcommand @ <nRow>, <nCol> COMBOBOX [ <oCbx> VAR ] <cVar> ; [ <it: PROMPTS, ITEMS> <aItems> ] ; [ SIZE <nWidth>, <nHeight> ] ; [ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ ON CHANGE <uChange> ] ; [ VALID <uValid> ] ; [ <color: COLOR,COLORS> <nClrText> [,<nClrBack>] ] ; [ <pixel: PIXEL> ] ; [ FONT <oFont> ] ; [ <update: UPDATE> ] ; [ MESSAGE <cMsg> ] ; [ WHEN <uWhen> ] ; [ <design: DESIGN> ] ; [ BITMAPS <acBitmaps> ] ; [ ON DRAWITEM <uBmpSelect> ] ; [ STYLE <nStyle> ] ; [ <pict: PICT, PICTURE> <cPicture> ]; [ ON EDIT CHANGE <uEChange> ] ; => ; [ <oCbx> := ] TComboBox():New( <nRow>, <nCol>, bSETGET(<cVar>),; <aItems>, <nWidth>, <nHeight>, <oWnd>, <nHelpId>,; [{|Self|<uChange>}], <{uValid}>, <nClrText>, <nClrBack>,; <.pixel.>, <oFont>, <cMsg>, <.update.>, <{uWhen}>,; <.design.>, <acBitmaps>, [{|nItem|<uBmpSelect>}], <nStyle>,; <cPicture>, [<{uEChange}>], [<(oCbx)>] );; <oCbx>:PostMsg( WM_KEYDOWN, VK_TAB ) kapiaba 1 Quote Link to comment Share on other sites More sharing options...
marcioe Posted March 26, 2015 Author Report Share Posted March 26, 2015 Aproveitando o amigo no meu caso esta dentro de um folder. #xcommand REDEFINE FOLDER [<oFolder>] ; [ ID <nId> ] ; [ <of: OF, WINDOW, DIALOG> <oWnd> ] ; [ <prm: PROMPT, PROMPTS, ITEMS> <cPrompt,...> ] ; [ <dlg: DIALOG, DIALOGS, PAGE, PAGES> <cDlgName1> [,<cDlgNameN>] ] ; [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ; [ OPTION <nOption> ] ; [ ON CHANGE <uChange> ] ; [ <lAdjust: ADJUST> ] ; [ HELPTOPICS <cnHelpids,...> ] ; //-->> byte-one => ; [<oFolder> := ] TFolder():ReDefine( <nId>, [\{<cPrompt>\}],; \{ <cDlgName1> [,<cDlgNameN>] \}, <oWnd>,; <nOption>, <nClrFore>, <nClrBack>,; [{|nOption,nOldOption| <uChange>}], <.lAdjust.>,; [\{<cnHelpids>\}] ) //-->> byte-one Como seria a mudança Quote Link to comment Share on other sites More sharing options...
aferra Posted March 26, 2015 Report Share Posted March 26, 2015 O que eu entendi Marcio é que usando o PostMsg() ele "ativa" o focu, então acredito que não tenha diferença estando em um folder. agora se for o caso de não funcionar com o folder, ai vc tem que colocar assim, oFld:aDialogs[ <numero_da_sua_folder> ]:bInit := {|| oCbx:PostMsg( WM_KEYDOWN, VK_TAB ) } mas vai dar certo fazendo como mostrei. 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.