Pegar o Click do mouse no Fechamento da janela GTWVW ??

[Cezar]

Bom dia,

Como interceptar o click do mouse quando clico no "X " da janela ??

Por exemplo:

Se vou sair do programa e clico no "X" da janela principal, quero perguntar ao usuário se deseja sair mesmo.


Agradeço a dica!

cez_a@ubbi.com.br

[Luiz]

Sobre a janela principal não encontrei como, porque aparentemente o closebutton dela invoca um quit, o jeito seria desligar o botão com WVW_NOCLOSE(0) para evitar problema.

No entanto é possivel fazer com sub janelas, como nesse exemplo:

Código: Selecionar todos

procedure main
  wvw_nopenwindow('teste',0,0,24,79)  
  do while .t.
    inkey(0)
    if lastkey()=27
      setcolor('N/W')
      nWin:=wvw_nopenwindow('mensagem',10,10,14,22)
      @ 1,1 say 'Deseja sair?'
      wvw_PBcreate( nWin, 3, 1, 3, 5, 'Sim', , {|nWIN,nBTN|__KEYBOARD('S')})
      wvw_PBcreate( nWin, 3, 7, 3, 11, 'Não', , {|nWIN,nBTN|__KEYBOARD('N')})
      inkey(0)
      wvw_lclosewindow()
      if chr(lastkey())='S'
        exit
      endif
    endif
  enddo
return