Dialog foi fechada com ESCAPE ou <X> ?

[Rossine]

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

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

[Antonio Linares]

Rossine,

Puedes hacerlo así:

Code: Select all

function SAIDA( oDlg ) 

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

return .T.