Tem como Saber se o Foco esta em determinado COMBO, CHECKBOX

[marcioe]

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

[gilmer]

Você pode usar oDlg:oCtlFocus:ClassName() para saber qual classe é do controle em foco

[sambomb]

Outra solução é você desabilitar o foco nesses componentes, assim evita que ao usar TAB para ir navegando nos componentes eles sejam ignorados...

[Theotokos]

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.

[marcioe]

Isso mesmo amigo

Theotokos

Tenho 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.

[sambomb]

Dependendo do desespero pode colocar um groupbox em volta e exibir/esconder no GetFocus/LostFocus dos componentes

[alex2002]

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.

[kapiaba]

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.

[Theotokos]

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

[aferra]

opa, que legal, funcionou, o duro é ter que ficar colocando isso em tudo qto é lugar que tenha combobox, checkbox....que dureza...porem tá valendo...

[alex2002]

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"

[marcioe]

Obrigado a todos, ajuda, mas terei que carregar muita pedra, ma agradeço a tos que se empenharam RM me ajudar

[sambomb]

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ó

[aferra]

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 )

[marcioe]

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

[aferra]

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.