evertonlb Posted May 19, 2015 Report Share Posted May 19, 2015 Explico. Tenho um folder com uns 20 Gets e gostaria de colocar um Say, com uma letra razoavelmente grande, dizendo do que se trata cada um destes Gets. Para não ficar cheio demais meu folder, pensei em colocar somente um SAY no alto do meu folder, e a cada focada num dos gets em mudo o "valor" do say fazendo com que apareça a mensagem correta Pensei que tinha um "On Focus" no get, mas na minha versão free não tem! o when() e o Valid() não podem me ajudar, um funciona antes do get e outro depois... precisaria algo que veja o focus no oGet2, oGet3, oGet4... e me dê a possibilidade de mudar o Say.. Como poderia fazer isso? Att. Everton Ronaldbuch 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 19, 2015 Report Share Posted May 19, 2015 ON CHANGE() ou bKeyChar() talvez. Quote Link to comment Share on other sites More sharing options...
sambomb Posted May 19, 2015 Report Share Posted May 19, 2015 Atualizando a versão é o caminho mais fácil Quote Link to comment Share on other sites More sharing options...
sambomb Posted May 19, 2015 Report Share Posted May 19, 2015 Fora isso: Procedure RedefinirGet( nGet ) Redefine Get oGet[nGet]; var cGet[nGet]; Update; ID 100 + nGet; Of oDlg oGet[nGet]:Cargo := "Get " + AllTrim( Str( nGet ) ) oGet[nGet]:bGotFocus := {|| oSay:SetText( oGet[nGet]:Cargo ) } Return evertonlb 1 Quote Link to comment Share on other sites More sharing options...
evertonlb Posted May 19, 2015 Author Report Share Posted May 19, 2015 Mas Kapiaba, o On Change não será executado somente no momento que for alterado o valor do Get? se for, ai não dá.. preciso que seja alterado o "say" no momento que o get recebe o foco! Pois é Samir... fico protelando o inevitável... atualizar a versão!!! Mas tem essa opção nas versões mais novas do FW? Vou ver o bKeyChar().. e tambem o código do Samir e tambem outra ideia que me surgiu agora! rsrs Att. Everton Quote Link to comment Share on other sites More sharing options...
evertonlb Posted May 19, 2015 Author Report Share Posted May 19, 2015 Poxa.. fiz alguns testes e nada, mas ai dei uma olhada na classe Tget e achei o método GotFocus Agora vai dar certo! GotFocus( MsgInfo( "Mensagem nova", "Foco no Get" ) ) Att. Everton Quote Link to comment Share on other sites More sharing options...
sambomb Posted May 19, 2015 Report Share Posted May 19, 2015 Vai te abrir várias opções, mais exemplos, correções de bugs, etc... Quote Link to comment Share on other sites More sharing options...
crisvam Posted May 19, 2015 Report Share Posted May 19, 2015 Eu faço assim: Redefine Say oSay ID 20 Prompt "Nome do Cliente "+If (Empty(vNome),Space(35),vNome) Font oFnt[1] Color nRGB(25,35,180),nRGB(15,125,17) OF oDgl Redefine Get oGet ID 45 Var vNome OF oDgl Update ON Change oSay:Refresh() kapiaba 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 19, 2015 Report Share Posted May 19, 2015 Everton não entendi. Mostre como foi resolvido. abs. Quote Link to comment Share on other sites More sharing options...
evertonlb Posted May 19, 2015 Author Report Share Posted May 19, 2015 Certo.. vou dar uma melhorada na função toda, ai mostro todo o código. Att. Everton kapiaba 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 22, 2015 Report Share Posted May 22, 2015 Certo.. vou dar uma melhorada na função toda, ai mostro todo o código. Att. Everton Everton, estou curioso. abs. 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.