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  Expand view

#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  Expand view

function SAIDA( oDlg )

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

return .T.