Xailer & OZ Software

Miren hago esto para pasar el focus de un TEDIT a otro TEdit cuando presiono
Enter y no me funciona
WITH OBJECT ::oEditUser := TEdit():New(::oTB2)
:SetBounds( 62, 2, 80, 20 )
:Value :=""
:lPassword := .F.
:cPasswordChar := ""
:nclrTextFocus := clMenuText
:cBalloon := "Teclee Nombre de Usuario"
:onEnter := ::PasaControl()
:Create()
:SetFocus()
END
//---------------------------------------------------------- ----------------
----
METHOD PasaControl() CLASS TControlar
WITH OBJECT ::oEditClave
:SetFocus()
END
Return NIL
ni esto por ejemplo, este me lo pasa pero antes de editar el TEDIT que
quiero porner el nombre de usuario
WITH OBJECT ::oEditUser := TEdit():New(::oTB2)
:SetBounds( 62, 2, 80, 20 )
:Value :=""
:lPassword := .F.
:cPasswordChar := ""
:nclrTextFocus := clMenuText
:cBalloon := "Teclee Nombre de Usuario"
:onEnter := "PasaControl"
:Create()
:SetFocus()
END
Ni esto funciona
WITH OBJECT ::oEditUser := TEdit():New(::oTB2)
:SetBounds( 62, 2, 80, 20 )
:Value :=""
:lPassword := .F.
:cPasswordChar := ""
:nclrTextFocus := clMenuText
:cBalloon := "Teclee Nombre de Usuario"
:onEnter := ::oEditClave:SetFocus()
:Create()
:SetFocus()
END
Me ayudan

Carlos,
Contestado en el foro privado.
Un saludo,
--
Ignacio Ortiz
www.xailer.com
"Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
news:4203e793$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Miren hago esto para pasar el focus de un TEDIT a otro TEdit cuando
> presiono
> Enter y no me funciona
>
> WITH OBJECT ::oEditUser := TEdit():New(::oTB2)
> :SetBounds( 62, 2, 80, 20 )
> :Value :=""
> :lPassword := .F.
> :cPasswordChar := ""
> :nclrTextFocus := clMenuText
> :cBalloon := "Teclee Nombre de Usuario"
> :onEnter := ::PasaControl()
> :Create()
> :SetFocus()
> END
>
> //---------------------------------------------------------- ----------------
> ----
> METHOD PasaControl() CLASS TControlar
> WITH OBJECT ::oEditClave
> :SetFocus()
> END
> Return NIL
>
> ni esto por ejemplo, este me lo pasa pero antes de editar el TEDIT que
> quiero porner el nombre de usuario
>
> WITH OBJECT ::oEditUser := TEdit():New(::oTB2)
> :SetBounds( 62, 2, 80, 20 )
> :Value :=""
> :lPassword := .F.
> :cPasswordChar := ""
> :nclrTextFocus := clMenuText
> :cBalloon := "Teclee Nombre de Usuario"
> :onEnter := "PasaControl"
> :Create()
> :SetFocus()
> END
>
> Ni esto funciona
>
> WITH OBJECT ::oEditUser := TEdit():New(::oTB2)
> :SetBounds( 62, 2, 80, 20 )
> :Value :=""
> :lPassword := .F.
> :cPasswordChar := ""
> :nclrTextFocus := clMenuText
> :cBalloon := "Teclee Nombre de Usuario"
> :onEnter := ::oEditClave:SetFocus()
> :Create()
> :SetFocus()
> END
>
> Me ayudan
>
>