Xailer & OZ Software

No se donde se ha roto, pero creo recordar que antes funcionaba como se comenta en la ayuda...
TStdControl:OnKeyDown
Evento que se produce cuando se recibe una pulsación de teclado.
Parametros:
<oSender>:
Referencia al objeto que provoca el evento
<nKey>:
Código virtual de la tecla pulsada
<nFlags>:
Información adicional sobre la pulsación
Valor Retorno:
<Nil>:
Sigue el procesamiento por defecto de Windows
<0>:
Se paraliza el procesamiento de la tecla. El efecto es como si no se hubiera llegada a pulsar ninguna tecla
Bien, pues dado este código en OnKeyDown de un Edit...
METHOD Edit1KeyDown( oSender, nKey, nFlags ) CLASS TForm1
Do Case
Case nKey == VK_TAB .or.; //Tabulador
nKey == 45 .or. nKey == 109 .or. nKey == 189 //Signo -
Return 0
ENDCASE
RETURN Nil
Aunque retorne el valor de cero... sigue enviando el valor de la tecla al Edit.
Este Valor de Retorno no lo tiene en cuenta y sigue con el procesamiento de la tecla pulsada !!!
Un Saludo,
Xevi.

--

Xevi,
Dicha pulsación entra por WM_CHAR. Deberás cotnrolar igualmente el evento OnChar.
Saludos,
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:4577cd86$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
No se donde se ha roto, pero creo recordar que antes funcionaba como se comenta en la ayuda...
TStdControl:OnKeyDown
Evento que se produce cuando se recibe una pulsación de teclado.
Parametros:
<oSender>:
Referencia al objeto que provoca el evento
<nKey>:
Código virtual de la tecla pulsada
<nFlags>:
Información adicional sobre la pulsación
Valor Retorno:
<Nil>:
Sigue el procesamiento por defecto de Windows
<0>:
Se paraliza el procesamiento de la tecla. El efecto es como si no se hubiera llegada a pulsar ninguna tecla
Bien, pues dado este código en OnKeyDown de un Edit...
METHOD Edit1KeyDown( oSender, nKey, nFlags ) CLASS TForm1
Do Case
Case nKey == VK_TAB .or.; //Tabulador
nKey == 45 .or. nKey == 109 .or. nKey == 189 //Signo -
Return 0
ENDCASE
RETURN Nil
Aunque retorne el valor de cero... sigue enviando el valor de la tecla al Edit.
Este Valor de Retorno no lo tiene en cuenta y sigue con el procesamiento de la tecla pulsada !!!
Un Saludo,
Xevi.
--

Perdona por mi ignorancia, pero no consigo que se eliminen las pulsaciones que no quiero admitir en un Edit.
Si utilizo el evento OnChar()
METHOD EditCodiChar( oSender, nKey, nFlags ) CLASS TForm1
msginfo( nKey )
RETURN Nil
í‰ste sólo se evalúa en pulsaciones de teclas concretas... Tab, Enter... pero no en TODAS las pulsaciones.
Lo que pretendo es que en un TEdit o TMaskEdit, no tenga en cuenta por ej, el guión -
Si me puedes iluminar el camino, te lo agradecerí­a.
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <_support_@xailer.com> ha escrit al missatge del grup de discussió: [email=4577dc1f@news.xailer.com...]4577dc1f@news.xailer.com...[/email]
Xevi,
Dicha pulsación entra por WM_CHAR. Deberás cotnrolar igualmente el evento OnChar.
Saludos,
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:4577cd86$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
No se donde se ha roto, pero creo recordar que antes funcionaba como se comenta en la ayuda...
TStdControl:OnKeyDown
Evento que se produce cuando se recibe una pulsación de teclado.
Parametros:
<oSender>:
Referencia al objeto que provoca el evento
<nKey>:
Código virtual de la tecla pulsada
<nFlags>:
Información adicional sobre la pulsación
Valor Retorno:
<Nil>:
Sigue el procesamiento por defecto de Windows
<0>:
Se paraliza el procesamiento de la tecla. El efecto es como si no se hubiera llegada a pulsar ninguna tecla
Bien, pues dado este código en OnKeyDown de un Edit...
METHOD Edit1KeyDown( oSender, nKey, nFlags ) CLASS TForm1
Do Case
Case nKey == VK_TAB .or.; //Tabulador
nKey == 45 .or. nKey == 109 .or. nKey == 189 //Signo -
Return 0
ENDCASE
RETURN Nil
Aunque retorne el valor de cero... sigue enviando el valor de la tecla al Edit.
Este Valor de Retorno no lo tiene en cuenta y sigue con el procesamiento de la tecla pulsada !!!
Un Saludo,
Xevi.
--

Xevi,
Perdona por mi ignorancia, pero no consigo que se eliminen las pulsaciones que no quiero admitir en un Edit.
Si utilizo el evento OnChar()
METHOD EditCodiChar( oSender, nKey, nFlags ) CLASS TForm1
msginfo( nKey )
RETURN Nil
í‰ste sólo se evalúa en pulsaciones de teclas concretas... Tab, Enter... pero no en TODAS las pulsaciones.
Lo que pretendo es que en un TEdit o TMaskEdit, no tenga en cuenta por ej, el guión -
Ciertas teclas (Tab, Enter, cursores, etc.) son procesadas directamente por Xailer y no se genera ningún evento. Si quisieras cambiar ese comportamiento tendrí­as que sobrescribir la clase T.
Pero el guión no está entre ellas, salvo en el caso de MaskEdit cuando el valor es numérico, creo recordar. Si quieres profundizar más, enví­anos exactamente qué quieres hacer y le echamos un vistazo.
--
Un saludo,
José F. Giménez
http://www.xailer.com
--

Jose,
Pues precisamente lo que pretendo es que en un MaskEdit, con picture "9999" por ej., no me admita el guión !!!
Sólo debe admitir valores positivos.
¿No se podrí­a implementar una propiedad para este menester???
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> ha escrit al missatge del grup de discussió: [email=45780ed0@news.xailer.com...]45780ed0@news.xailer.com...[/email]
Xevi,
Perdona por mi ignorancia, pero no consigo que se eliminen las pulsaciones que no quiero admitir en un Edit.
Si utilizo el evento OnChar()
METHOD EditCodiChar( oSender, nKey, nFlags ) CLASS TForm1
msginfo( nKey )
RETURN Nil
í‰ste sólo se evalúa en pulsaciones de teclas concretas... Tab, Enter... pero no en TODAS las pulsaciones.
Lo que pretendo es que en un TEdit o TMaskEdit, no tenga en cuenta por ej, el guión -
Ciertas teclas (Tab, Enter, cursores, etc.) son procesadas directamente por Xailer y no se genera ningún evento. Si quisieras cambiar ese comportamiento tendrí­as que sobrescribir la clase T.
Pero el guión no está entre ellas, salvo en el caso de MaskEdit cuando el valor es numérico, creo recordar. Si quieres profundizar más, enví­anos exactamente qué quieres hacer y le echamos un vistazo.
--
Un saludo,
José F. Giménez
http://www.xailer.com
--

Alguna sugerencia al respecto???
Gracias.
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> ha escrit al missatge del grup de discussió: 45781110$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Jose,
Pues precisamente lo que pretendo es que en un MaskEdit, con picture "9999" por ej., no me admita el guión !!!
Sólo debe admitir valores positivos.
¿No se podrí­a implementar una propiedad para este menester???
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> ha escrit al missatge del grup de discussió: [email=45780ed0@news.xailer.com...]45780ed0@news.xailer.com...[/email]
Xevi,
Perdona por mi ignorancia, pero no consigo que se eliminen las pulsaciones que no quiero admitir en un Edit.
Si utilizo el evento OnChar()
METHOD EditCodiChar( oSender, nKey, nFlags ) CLASS TForm1
msginfo( nKey )
RETURN Nil
í‰ste sólo se evalúa en pulsaciones de teclas concretas... Tab, Enter... pero no en TODAS las pulsaciones.
Lo que pretendo es que en un TEdit o TMaskEdit, no tenga en cuenta por ej, el guión -
Ciertas teclas (Tab, Enter, cursores, etc.) son procesadas directamente por Xailer y no se genera ningún evento. Si quisieras cambiar ese comportamiento tendrí­as que sobrescribir la clase T.
Pero el guión no está entre ellas, salvo en el caso de MaskEdit cuando el valor es numérico, creo recordar. Si quieres profundizar más, enví­anos exactamente qué quieres hacer y le echamos un vistazo.
--
Un saludo,
José F. Giménez
http://www.xailer.com
--

This is a multi-part message in MIME format.
------=_NextPart_000_0019_01C71EE0.8EB9FE50
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_001A_01C71EE0.8EB9FE50"
------=_NextPart_001_001A_01C71EE0.8EB9FE50
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Xevi,=20
Captura el evento OnChar de la siguiente forma:
METHOD MaskEdit1Char( oSender, nKey, nFlags ) CLASS TForm5
if nKey =3D=3D 45
return 0
endif
RETURN Nil
Necesitaras incluir el archivo adjunto.=20
Un saludo
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje =
news:[email=45802b83@news.xailer.com...]45802b83@news.xailer.com...[/email]
Alguna sugerencia al respecto???
Gracias.
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> ha escrit al missatge del grup de =
discussi=F3: 45781110$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Jose,
Pues precisamente lo que pretendo es que en un MaskEdit, con picture =
"9999" por ej., no me admita el gui=F3n !!!
S=F3lo debe admitir valores positivos.
=BFNo se podr=EDa implementar una propiedad para este menester???
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> ha escrit al =
missatge del grup de discussi=F3: [email=45780ed0@news.xailer.com...]45780ed0@news.xailer.com...[/email]
Xevi,
Perdona por mi ignorancia, pero no consigo que se eliminen las =
pulsaciones que no quiero admitir en un Edit.
Si utilizo el evento OnChar()
METHOD EditCodiChar( oSender, nKey, nFlags ) CLASS TForm1
msginfo( nKey )
RETURN Nil
=C9ste s=F3lo se eval=FAa en pulsaciones de teclas concretas... =
Tab, Enter... pero no en TODAS las pulsaciones.
Lo que pretendo es que en un TEdit o TMaskEdit, no tenga en =
cuenta por ej, el gui=F3n -
Ciertas teclas (Tab, Enter, cursores, etc.) son procesadas =
directamente por Xailer y no se genera ning=FAn evento. Si quisieras =
cambiar ese comportamiento tendr=EDas que sobrescribir la clase T.
Pero el gui=F3n no est=E1 entre ellas, salvo en el caso de =
MaskEdit cuando el valor es num=E9rico, creo recordar. Si quieres =
profundizar m=E1s, env=EDanos exactamente qu=E9 quieres hacer y le =
echamos un vistazo.
--=20
Un saludo,
Jos=E9 F. Gim=E9nez
http://www.xailer.com
------=_NextPart_001_001A_01C71EE0.8EB9FE50
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.5730.11" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff background=3D"">
<DIV><FONT face=3DArial size=3D2>Xevi, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Captura el evento OnChar de la =
siguiente=20
forma:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV><FONT face=3DArial =
size=3D2>
<DIV><BR>METHOD MaskEdit1Char( oSender, nKey, nFlags ) CLASS =
TForm5</DIV>
<DIV>Â</DIV>
<DIV>ÂÂ if nKey =3D=3D 45<BR>ÂÂÂÂÂ =
return=20
0<BR>ÂÂ endif</DIV>
<DIV>Â</DIV>
<DIV>RETURN Nil</DIV>
<DIV>Â</DIV>
<DIV>Necesitaras incluir el archivo adjunto. </DIV>
<DIV>Â</DIV>
<DIV>Un saludo</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@gmail.com">xevicomas@gmail.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:45802b83@news.xailer.com">news:45802b83@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Alguna sugerencia al =
respecto???</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@gmail.com">xevicomas@gmail.com</A>> ha =
escrit al=20
missatge del grup de discussi=F3: <A=20
=
href=3D"mailto:45781110$1@news.xailer.com">45781110$1@news.xailer.com</A>=
....</DIV>
<DIV><FONT face=3DArial size=3D2>Jose,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Pues precisamente lo que pretendo =
es que en un=20
MaskEdit, con picture "9999" por ej.,Âno me admita el gui=F3n=20
!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>S=F3lo debe admitir valores=20
positivos.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>=BFNo se podr=EDa implementar una =
propiedad para=20
este menester???</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Jose F. Gimenez" <jfgimenez@wanadoo.es> ha =
escrit=20
al missatge del grup de discussi=F3: <A=20
=
href=3D"mailto:45780ed0@news.xailer.com">45780ed0@news.xailer.com</A>...<=
/DIV>
<DIV><FONT face=3DArial size=3D2>Xevi,</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV><FONT face=3DArial size=3D2>Perdona por mi ignorancia, pero =
no consigo=20
que se eliminen las pulsaciones que no quiero admitir en un=20
Edit.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si utilizo el evento =
OnChar()</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>METHOD =
EditCodiChar( oSender,=20
nKey, nFlags ) CLASS TForm1<BR>msginfo( nKey )<BR>RETURN=20
Nil<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>=C9ste s=F3lo se eval=FAa en =
pulsaciones de=20
teclas concretas... Tab, Enter... pero no en TODAS las=20
pulsaciones.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Lo que pretendo es que en un =
TEdit o=20
TMaskEdit, no tenga en cuenta por ej, el gui=F3n =
-</FONT></DIV></BLOCKQUOTE>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>Ciertas teclas (Tab, =
Enter, cursores,=20
etc.) son procesadas directamente por Xailer y no se genera =
ning=FAn evento.=20
Si quisieras cambiar ese comportamiento tendr=EDas que =
sobrescribir la clase=20
T.</FONT></DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV dir=3Dltr><FONT face=3DArial size=3D2>Pero el gui=F3n no =
est=E1 entre ellas,=20
salvo en el caso de MaskEdit cuando el valor es num=E9rico, creo =
recordar.=20
Si quieres profundizar m=E1s, env=EDanos exactamente qu=E9 quieres =
hacer y le=20
echamos un vistazo.</FONT></DIV>
<DIV dir=3Dltr><FONT face=3DArial =
size=3D2></FONT>Â</DIV><FONT face=3DArial=20
size=3D2>
<DIV dir=3Dltr><BR>-- <BR>Un saludo,</DIV>
<DIV>Â</DIV>
<DIV dir=3Dltr>Jos=E9 F. Gim=E9nez<BR><A=20
=
href=3D"http://www.xailer.com">http://www.xailer.com</A></FONT></DIV></BL=
OCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_001A_01C71EE0.8EB9FE50--
------=_NextPart_000_0019_01C71EE0.8EB9FE50
Content-Type: application/octet-stream;
name="MaskEdit.rar"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="MaskEdit.rar"
UmFyIRoHAM+QcwAADQAAAAAAAACl93QgkDEA5wkAABcYAAACt6REeh2PjTUd MwwAIAAAAE1hc2tF
ZGl0Lm9iagDwZwwEDB2VEMzM/JQV8OnsRJXW0k2XEW3G2n0p67GnHZa5WWeh otlEkJElpOOUxI6W
yldSJpKLaQtFrEgaF6HRXReh0UByu9EAktAdvpbfGy2XwoFvhAL4W+F8IK0S XKL4TxoDFvg6M5mp
Io6Tm6TpRRZlf8CQCdzM59zr3M079/Mc7MznT8Pv2bv3Nzn25g5/A9m+FezJ M2XGj9STmZ3UxsuZ
852dm6OHpC+pei1y550mWfl6BzdzxOI3xMPXeRsv5w/F8YrN/s/YxKQOMP4e yz7vJ38b0uppSMuX
mFFbWDN0Ix806lmRmUSVVkUn4YH6M7/vJ4AY6MvLRxSUuOBh/bfYnBDGZH0Z srDjFU8EYm/zMK+H
mRo2JiVw8U/Nz0mrvKwPAD+UFTnmKRe3P7ND0AyqvmQnSr4W+Ev4W48prZ8f Pw/MQzJjDpAyz46j
HSdBOMzRlhggUV1vMBY9SKNIJSTv2lknH5uYGEXQ6ubVjNvrO/Q5Zsn/+ERG mnnkx1/qp203qD3N
po0cUP5mjp1TonnFA8PteHk+f5i/cmrMSWwWh6i/EDJSKcOts1Qy6+fKmp1n 3YCW2743d6rSlX73
LEtiwneTCWOYDp2XG6cQnCxL8XOufjwIcFZF52RkKy/V0V6/eworBL9STi++ vF7n5hKjBJ4f5tVi
0PUEvYE8erhMWQL8GxLvIr8lI/bbGW8XF50V5Dfxclw5fOEVBXamhrhFkRYL jHcYwtzXD41IfRdu
ivjnu4URw+hu7SjyAq/Dh0sajnUAWBaUKODtG4V9akUOFa1WnBkQrVA2sqiT 1FBE9taoigvXMKHj
u7S7Xr+CBug5bHlU/Ok/Fc7ak9KFMOxp+gc7oYtKeNkc8V0Si9HCdS8gTVTT guYGw0sMwp9kwKdt
5XylrGV3IsuCyhoFO6mELKFXtu4fPoWO9xhW1dXd2EOVHoL6pNtlEJKTxXNI zIvXz4MuTGjzJmRp
55dgswgnqu9KPGm6McQu5f6+qufKoQ2QQu/4Nmdhzl8j9rUvRxIEJLwxoHsf wuPyXCzY/ezhfiDU
GReEKyJn73c7lfXhsQ6e4HX1WQdGNsP+4WF3soWqrhGarLX/y28S/1b4uPBI b8ufhxMDV9FA5g+c
OAOGPpj6w88csf0x9of1h90feH+MELvrFhduv+CuC0vVsKr8/0XP+4RNviIK g38YSsZ7cC4IEtvi
TyiS4JL8eSAYWEckjzUJmEn6Fk4dsk+yPwD90f9B+Ifj1mcRtGge/RB7sb4e GBYxDmEl0PoAa1vm
2SeOhJ9kB1yT65J7aE91CfZQnwEn9Y/3j/kP+o/CP/I/92UA/4SV7VCGhJvB 4I+OPlD9MboBC3Q1
phIT0x9UckemP2B/Vsnj7RJ+6P8JJ9pCRd756rVp6marCFsdwA3L9wolFmoH LiILmkIJDJiK9X1i
EiIs1ZQ+yQ7g++P2yrf6UD3UD3x/2iLdX4CHiiLtX4h+OIvnFcs5hEYThzr+ IxnNyCM7KcBOBW04
CdiojzoKBkjK650ggQnDnDnDne3EZzhzhzhzgTScBOBNZwE/WJ4K3ngTwVxP Anlcs/m6xBH6w5Qy
tWeOeOeCuZ4E/9US6nlbM8c8hPKwUB0LjWG4ysmhTru6AFArLoDoDoDoDoDo IFAFeUAKH8Yl7QIU
Kce4ofAQSYPHEvqvL0s/OWxV+P7lhY1oZ5NHmi+kYqF1teOYbtatN2M8w5mL OZaSn9d9kFZ2cuhJ
4maqUZjqiqaKHavRGrElnZuJlnzY9L50UxietanrmtJ7CC7ip+Uc6Uye6iqs PsY0HNjaM2XSZnKh
JDjsq6EXiuRJXiiqqP0kXVyIyaoYDZH9OPLkvM088TFNTOrAliUcalPBgnHb HZrOtz4Gg8kxpsxz
Iy9DrIxrBsWMpdSUvGsGwB5xjkRRq6NC05VgGYqJlSSVOL7yboRtoEyDglSQ m1sHCHMp+E2Z2EWM
zypnMnPlHx9LaBtadLAdvXnuCjBM7EmWcI4l7hSoD383PRhRIsk9yDtj4cqU CjIix7IHdB8+k9gO
d2DaxlIGLViXZBr1Ow24NYpil7mXHyy/0WPZNdZdm4qJylj1MFgG2w1sPQOk iyrxPgVNZlvr6qxX
p6cpWuimJDNTc1h5c5PL6ze3H1YX3SjUcyZWnrQqC7YGsczdHbiRBfdqPos3 aMfbj5gXwSV0sZOQ
HtCCaFuDYAqshHtVEW8BrgCwePt1EG92lWq/59wSt8DYgsnLL7MZWC5Ct+oj 58fRq7cHrSVwB5Af
Lmou80FY8vVXgYYVlTgjtgFN0p90o0sJSPHuhKDV2FcJRYIir5Pb5rK8CuGM sDZpwK9JXE2qhp9q
x+4JXFrWHX1t4uVvKtiL4CUJ02uDb+jMAPNdwFZylleMDZAujH03UnsaCKm5 Bm7pJFSdRDYPe6fu
zlMbNVBVH+ccihS1UczdFyeXvs2UMbNzcErnPbl5C5Sp7gXNmqbwqDTt212b vUtRQfM0F9Fa+0MV
dWCZ2ugI3fF4CqUYKsvGDdJx+MlJR4ijqKzfPLlN36ekloLYpFVHO2zXUXG8 AuNBJIS8EEmqrBLO
16gqNVdRgwbU7jeDSCspNbL9RVp7P6iw3CLnS5SKY17BWnIisCtVaVCyTU73 BYF6tGDyrgYhW6Wg
MjeEmzC4twfwzj+Id1LmpOl0ugTMx5gty8b3FTaKaJYeZm79MB7gIvNUn7dG 8ZOULA0nH5XXoTMB
YdjPidDuOXNpJS6sNNTQnVE7svODkJUX+QHzA/0DjeSnmpkYPR1GNnThlsji J5M4x+JEJo9N5Sea
o+6Hb7KdERvop6F+8bMyyNy08lK9unAbENXMXaivti2ofmbZ93m3tpSyYNax 1w35KedFx7Wt8XsY
uHqS16QN02t3teJnIFQZcf8raTloBef8s6mLRVZib5thajBN2n8wviyNU7T1 YPyGZaxYqcBtNqSK
iPp2NZ6iU3ml2eL6/tKifu+kJQjEUIv4u/75fOYzSIwnDp1Bx4EF3jl9zy0E YtoIurAgkKuY0N9C
epksyWTZrFgOrBWc0iIJMS9fvteSXH7pL3/vKI+PLI7bMjm8sjbtBGpaiM/Z kYVislEPICL2QG5Z
oeutu/sUsAfQH6Y+XI/56KlbpVIOLSSH6094thXpMkOsSQdIqjqp7AkIrEfu wlG48OoFAx3JSM0T
9GPJKRjc+Fiir2Lr2pi2CV8WeaXMaDR2SJENOO3j4sGU1X77KEmSl7YlEq0W rTPYUTi2U5vKzqrd
abBS4sVUl4eOVK17DlQR1EkUYCJFMGjhJIiklDkVXOlJT7pu8eA8elw1WUoT WJE0u0TNVbE1axYS
ZeolENm8g0vzkcIVcwjlS+sUl/MhFI3a3uTd5aLVMhKhfXS/zT/5xD17AEAH AA==
------=_NextPart_000_0019_01C71EE0.8EB9FE50--

Attached files MaskEdit.rar (2.5 KB)Â

Ignacio,
PERFECTO !!!
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 458031a4$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,
Captura el evento OnChar de la siguiente forma:
METHOD MaskEdit1Char( oSender, nKey, nFlags ) CLASS TForm5
if nKey == 45
return 0
endif
RETURN Nil
Necesitaras incluir el archivo adjunto.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:[email=45802b83@news.xailer.com...]45802b83@news.xailer.com...[/email]
Alguna sugerencia al respecto???
Gracias.
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> ha escrit al missatge del grup de discussió: 45781110$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Jose,
Pues precisamente lo que pretendo es que en un MaskEdit, con picture "9999" por ej., no me admita el guión !!!
Sólo debe admitir valores positivos.
¿No se podrí­a implementar una propiedad para este menester???
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> ha escrit al missatge del grup de discussió: [email=45780ed0@news.xailer.com...]45780ed0@news.xailer.com...[/email]
Xevi,
Perdona por mi ignorancia, pero no consigo que se eliminen las pulsaciones que no quiero admitir en un Edit.
Si utilizo el evento OnChar()
METHOD EditCodiChar( oSender, nKey, nFlags ) CLASS TForm1
msginfo( nKey )
RETURN Nil
í‰ste sólo se evalúa en pulsaciones de teclas concretas... Tab, Enter... pero no en TODAS las pulsaciones.
Lo que pretendo es que en un TEdit o TMaskEdit, no tenga en cuenta por ej, el guión -
Ciertas teclas (Tab, Enter, cursores, etc.) son procesadas directamente por Xailer y no se genera ningún evento. Si quisieras cambiar ese comportamiento tendrí­as que sobrescribir la clase T.
Pero el guión no está entre ellas, salvo en el caso de MaskEdit cuando el valor es numérico, creo recordar. Si quieres profundizar más, enví­anos exactamente qué quieres hacer y le echamos un vistazo.
--
Un saludo,
José F. Giménez
http://www.xailer.com
--