evertonlb Posted June 8, 2012 Report Share Posted June 8, 2012 ai pessoal tenho uma Dialog na entrada do software para farificar o usuário/operador... pede codigo e senha.. bom, o que ta acontecendo é que se o cara der um ESC a janela fecha! Claro, que se o cara fecha a janela sem digitar a senha eu bloqueio qualquer acesso ao sistema, mas dai fui checar as outras DIALOGS de dentro do software, cara, todas fecham com o ESC. Como desabilito isso, fazendo que a DIALOG só feche se o cara clicar no lugar especÃfico pra fechar. Uso as DIALOGS com Style 1, que tira os botoes da jenela. Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 08/06/2012 17:21:13 Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 8, 2012 Author Report Share Posted June 8, 2012 ai pessoal tenho uma Dialog na entrada do software para farificar o usuário/operador... pede codigo e senha.. bom, o que ta acontecendo é que se o cara der um ESC a janela fecha! Claro, que se o cara fecha a janela sem digitar a senha eu bloqueio qualquer acesso ao sistema, mas dai fui checar as outras DIALOGS de dentro do software, cara, todas fecham com o ESC. Como desabilito isso, fazendo que a DIALOG só feche se o cara clicar no lugar especÃfico pra fechar. Uso as DIALOGS com Style 1, que tira os botoes da jenela. Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 08/06/2012 17:21:13 Quote Link to comment Share on other sites More sharing options...
CTOAS Posted June 8, 2012 Report Share Posted June 8, 2012 Trabalho desta maneira lSAIR:= .f. ACTIVATE DIALOG oDlg Valid lSAIR []'s Editado por - ctoas on 08/06/2012 15:40:51 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted June 8, 2012 Report Share Posted June 8, 2012 Assim Tb. dá ; É só criar a dialog sem o "X" e fazer assim ; Activate Dialog odlg Centered ; VALID !( GetKeyState( 27 ) ) id=code>id=code> Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 8, 2012 Author Report Share Posted June 8, 2012 Obrigadão mesmo... td funcionando... Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Quote Link to comment Share on other sites More sharing options...
Eduardo Bilato Posted June 12, 2012 Report Share Posted June 12, 2012 Não seria mais fácil usar o comando SET ESCAPE OFF no programa principal ? =p att Eduardo de Camargo Bilato FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY email: eduardobilato@gmail.com msn: dunhox@hotmail.com Quote Link to comment Share on other sites More sharing options...
emotta Posted June 12, 2012 Report Share Posted June 12, 2012 Caramba, tantos anos de fivewin e nunca testei isso pra ver se funciona... Se funcionar isso com certeza é mais fácil... Eu uso uma solucao parecida com a que o Ico postou, mas pra nao escrever sempre tanta coisa criei uma function chamada ESC e no valid da dialog só coloco VALID !Esc() Se o fivewin considerar o estado do SET ESCAPE para dialog a sua dica com certeza é a mais pratica sim. abraços, citação:Não seria mais fácil usar o comando SET ESCAPE OFF no programa principal ? =p att Eduardo de Camargo Bilato FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY email: eduardobilato@gmail.com msn: dunhox@hotmail.com id=quote>id=quote>Eduardo Motta emotta@gmail.com.br FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 12, 2012 Author Report Share Posted June 12, 2012 Cara testei o Set Escape Off, mas nao funcionou... continua fechando com o ESC... A não ser que tenha outra coisa que deixei passar... Mas não funcionou! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Quote Link to comment Share on other sites More sharing options...
emotta Posted June 12, 2012 Report Share Posted June 12, 2012 Pena que não funciona. Mas encontrei a solução que funciona de maneira semelhante. No programa principal coloque: SetDialogEsc(.f.) Caso deseje reativar para fechar com ESC basta mudar para: SetDialogEsc(.f.) abraços, citação:Cara testei o Set Escape Off, mas nao funcionou... continua fechando com o ESC... A não ser que tenha outra coisa que deixei passar... Mas não funcionou! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS id=quote>id=quote>Eduardo Motta emotta@gmail.com.br FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD 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.