MSGYESNO

[clebervn]

Tem como iniciar esta função (MSGYESNO) o botão selecionado primeiro no NÃO ??

[sygecom]

MsgNoYes("Esse começa com focu no NÃO")

[jairfab]

Precizo sair da função Teclando ESC, ou seja precizo sair do sistema que utiliza esta função, mas o objetivo seria quando aparece a mensagem com os botoes Sim e Nao, pressionar a tecla ESC e sair da função msgyesno e e fechar o sistema tambem. Ter o mesmo efeito de ter clicado no botão Sim, alguem tem alguma função pra fazer isto...


Ja tentei criar com uma tela dialog, mas não está funcionando...


Alguem pode me ajudar com algumas ideia !

[lugab]

Jair, não posso ajudar, e , enquanto nenhuma ajuda aparece, a solução imediata é inverter o texto da pergunta, onde o SIM exerça uma ação inversa à pergunta atual...

[alaminojunior]

Jair, adapte o seguinte código:

Código: Selecionar todos

#Include "hwgui.ch"
STATIC Thisform

FUNCTION jair( ... )
 RETURN _jair( HB_AParams() )

FUNCTION _jair(  )

  //PRIVATE oDlg, oButtonex1, oButtonex2

  PRIVATE oDlg, oButtonex1, oButtonex2

  INIT DIALOG oDlg TITLE "Form1" ;
    AT 0,130 SIZE 884,460 CLIPPER  NOEXIT  ;
     STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER  ;
     ON INIT {|| thisform:ninitfocus:=Thisform:oButtonEx2 }
    Thisform := oDlg



   @ 320,393 BUTTONEX oButtonex1 CAPTION "Sim"   SIZE 98,32 ;
        STYLE WS_TABSTOP  ;
        ON CLICK {|| msginfo('teclou sim') }
        
   @ 466,393 BUTTONEX oButtonex2 CAPTION "Não"   SIZE 98,32 ;
        STYLE WS_TABSTOP  ;
        ON CLICK {|| msginfo('teclou não'),enddialog() }

   ACTIVATE DIALOG oDlg
	  
	  if lastkey() = 27
	     msginfo('teclou esc, saindo do sistema')
	  endif   

RETURN oDlg:lresult