FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Dialog foi fechada com ESCAPE ou <X> ?
Rossine
Posts: 344
Joined: Tue Oct 11, 2005 11:33 AM

Dialog foi fechada com ESCAPE ou <X> ?

Posted: Wed Aug 02, 2006 07:58 PM
Olá,

Como faço para saber se a dialog esta sendo encerrada pela tecla ESCAPE ou pelo click no botão <X> da dialog ?

Veja o exemplo abaixo:

Code: Select all Collapse
#include "FiveWin.ch"

function Main()

   local oDlg

   DEFINE DIALOG oDlg

   ACTIVATE DIALOG oDlg CENTERED VALID SAIDA( oDlg )

return nil

function SAIDA( oDlg )

if getkeystate( VK_ESCAPE )
   msgstop( "Estou encerrando pela tecla ESC !!!" )
endif

if oDlg:isbutonclose()  <<<---- Como testar isto ???
   msgstop( "Estou encerrando pelo click em <X> !!!" )
endif

return .T.

Obrigado,

Rossine.
Obrigado, Regards, Saludos



Rossine.



Harbour and Harbour++
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Dialog foi fechada com ESCAPE ou &lt;X&gt; ?

Posted: Wed Aug 02, 2006 08:11 PM
Rossine,

Puedes hacerlo así:
Code: Select all Collapse
function SAIDA( oDlg ) 

   if getkeystate( VK_ESCAPE ) 
      msgstop( "Estou encerrando pela tecla ESC !!!" ) 
   else
      MsgInfo( "cerrado de otra forma" )   
   endif 

return .T.
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions