rubensma Posted July 6, 2005 Report Share Posted July 6, 2005 Ola, bom dia, gostaria de saber se ao fechar uma dialog através do "X" (canto direito em cima), tem como saber que o usuário clicou ali para sair. Grato. Rubens Martins rubens.martins@brfree.com.br FW20 + Clipper 5.2e + Workshop + Blinker 60 Quote Link to comment Share on other sites More sharing options...
Burai Posted July 6, 2005 Report Share Posted July 6, 2005 Rubens, eu faço o contrário, ao invés de tentar saber se o usuário saiu através do "x", Cancela, Alt+F4, etc. nestes casos eu geralmente tenho um botão de Ok pra saber se ele confirmou o que fez, definou uma variável e a mudo quando ele clicar no ok, mais ou menos assim: lOk := .F. define dialog oDlg.... (... codigo da dialog ...) redefine button id 1000 of oDlg action (lOk := .T., oDlg:End()) // Confirmou o ok e fecha dialog activate dialog oDlg centered if lOk MsgAlert("Clicou em ok") endif Outra coisa que vc poderia fazer é colocar este valid no objeto dialog, seria algo como: lFechou := .F. (...) oDlg:bValid := {|| lFechou := .T. } redefine button id 1000 of oDlg action (oDlg:bValid := {|| .t.}, oDlg:End() // Cancela o valid para nao mudar a variavel lfechou caso feche normalmente por este botão activate dialog oDlg ..... if lFechou MsgAlert("Fechou no x ou Alt F4") endif AÃ, toda vez que ele fechar a dialog (seja por x, alt+f4) ele mudaria a variavel e basta vc testar apos o activate dialog. Teste aà e diga-nos se funcionou []'s Maurilio Quote Link to comment Share on other sites More sharing options...
rubensma Posted July 6, 2005 Author Report Share Posted July 6, 2005 Valeu Maurilio, deculpe a demora, estava fora. Concordo com vc e até utilizo dessa forma, através de variáveis lógicas, mas gostaria mesmo de saber se tem algum retorno com essa informação que, se tiver deve ser da API do rwindows. Grato, abraços Rubens Martins rubens.martins@brfree.com.br FW20 + Clipper 5.2e + Workshop + Blinker 60 Quote Link to comment Share on other sites More sharing options...
eajunior Posted July 6, 2005 Report Share Posted July 6, 2005 Ola nçao tem nenhum api para este controle, a unica coisa que pode fazer e desabilitar esta opção no WS ou fazer como Maurilio disse LOCAL lEnd := .F. DEFINE DIALOG oScr RESOURCE .... REDEFINE BUTTON ID 300 OF oScr ACTION ( lEnd := .t., oScr:End() ) ACTIVATE DIALOG oScr CENTERED VALID lEnd Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer. Elias Abrão Júnior Fone : (0**11) 5181-6909 São Paulo - SP eajunior.fw@terra.com.br xHarbour 0.99.0 - Fivewin 2.5 e xMate Quote Link to comment Share on other sites More sharing options...
rubensma Posted July 7, 2005 Author Report Share Posted July 7, 2005 Valeu amigos, grato pelas informações e ajuda. Um forte abraço. Rubens Martins rubens.martins@brfree.com.br FW20 + Clipper 5.2e + Workshop + Blinker 60 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.