HMGforum.com

Code: Select all

		With Object oSenha	:= TextBox():New()
			:Row		:= 80
			:Col		:= 170
			:Width		:= 181
			:Height		:= 20
			:Password 	:= .t.
			:OnEnter	:= { || MsgInfo("Enter") }
		End With

Code: Select all

		With Object oButton1 := Button():New()
			:Row		:= 142
			:Col		:= 280
			:Caption	:= 'Sair'
			:OnClick	:= { || MsgInfo("Enter") }
		End With

Code: Select all

	With Object oModalSenha := Window():New()
		:Row		:= 0
		:Col		:= 0
		:Width		:= 390
		:Height		:= 178
		:Title		:= 'Sistema de Ficha Qualificativa'
		:Type		:= WND_MAIN
		:OnInit		:= { || ( oModalSenha:Center() ) } 
		:Sizable	:= .F.
		:MaxButton	:= .F.
		:MinButton	:= .F.
	End With

Code: Select all

/*----------------------------------------------------------------------*/

METHOD OnEnter( bOnEnter ) CLASS CONTROL

   IF ::lCreated
      IF PCOUNT() == 0
         RETURN ::bOnEnter
      ELSEIF HB_ISBLOCK( bOnEnter ) == .T.
         ::bOnEnter := bOnEnter
         RETURN NIL
      ENDIF
   ELSE
      IF PCOUNT() == 0
         RETURN ::bOnEnter
      ELSEIF HB_ISBLOCK( bOnEnter ) == .T.
         ::bOnEnter := bOnEnter
         RETURN NIL
      ENDIF
   ENDIF

   RETURN NIL

Code: Select all

   METHOD DoKeyBoardEvents

Code: Select all

   IF !::lGridCellFlag
* FOR KeyBoardEventProcessing...
 ::oQTObject:Connect( QEvent_KeyPress , {|e| Self:DoKeyBoardEvents( e )} )
      IF ValType( ::lVisible )      != 'U'   ; Self:Visible      := ::lVisible      ; ELSE   ; ::oQTObject:show()   ; ENDIF
   ENDIF

Code: Select all

/*----------------------------------------------------------------------*/
METHOD TEXTBOX:DoKeyBoardEvents( e )

 LOCAL oKeyEvent := QKeyEventFromPointer( e )
 LOCAL nKey := oKeyEvent:key()
 LOCAL nModifiers := oKeyEvent:modifiers()

 HB_SYMBOL_UNUSED( nModifiers )

 IF nKey == Qt_Key_Return .OR. nKey == Qt_Key_Enter
  IF HB_ISBLOCK ( ::bOnEnter )
   EVAL( ::bOnEnter )
   RETURN .T.
  ENDIF
 ENDIF

RETURN ::oQTObject:Event( oKeyEvent )

Code: Select all

DEFINE TEXTBOX name
 ROW ....
 COL....
 VALUE "sdisdui"
 ONENTER {|| OnEnterFunction() }
END TEXTBOX