In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Fijar el Focus DUDA

Foro público de Xailer en español
Responder
carlos
Mensajes: 126
Registrado: Mié Feb 02, 2005 7:31 pm

Fijar el Focus DUDA

Mensaje por carlos »

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
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9445
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Fijar el Focus DUDA

Mensaje por ignacio »

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
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Responder