PC Toledo

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