Xailer & OZ Software

El entorno de desarrollo definitivo en Xbase
https://forum.xailer.com/

TEdit:OnExit

https://forum.xailer.com/viewtopic.php?t=5252

Página 1 de 1

TEdit:OnExit

Publicado: Jue Oct 06, 2005 8:48 pm
por Xevi
This is a multi-part message in MIME format.
------=_NextPart_000_0027_01C5CAB7.3E7ECB10
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0028_01C5CAB7.3E7ECB10"
------=_NextPart_001_0028_01C5CAB7.3E7ECB10
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Necesito de un "VALID" de un Edit... en este caso un TMaskEdit.
Para ello, entiendo que debo de utilizar el evento OnExit, y cambiar de =
Foco dependiendo del propio evento...
En mi caso, no quiero que salga del Edit si est=E1 "vacio"
Pues...
METHOD MaskEdit1Exit( oSender, oNextCtl ) CLASS TForm1
If Empty( ::oMaskEdit1:cText )
Return 0
EndIf
RETURN Nil
Y me lanza este error...
***************************** Registro de errores =
*****************************
Fecha: 10/06/05
Hora: 20:42:24
Memoria libre: 514676
Area actual: 1
------------------------- Informaci=F3n del compilador =
--------------------------
Versi=F3n Xailer: Xailer 0.99.5 Pre-release 5a
Compilador: xHarbour build 0.99.51 Intl. (SimpLex) PCode Version: =
7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Informaci=F3n detallada del error =
-----------------------
Subsistema: BASE
C=F3digo de error: 1077
Estado: .F.
Descripci=F3n: Argument error
Operaci=F3n: .NOT.
Argumentos: [ 1] =3D Tipo: N Valor: 0
Fichero:=20
C=F3digo error SO: 0
Pila de llamadas:
TMASKEDIT:WMKILLFOCUS (862)
RUNFORM (0)
TAPPLICATION:RUN (189)
MAIN (15)
Adjunto test
Un Saludo,
Xevi.
------=_NextPart_001_0028_01C5CAB7.3E7ECB10
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.2900.2180" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>Necesito de un "VALID" de un Edit... en =
este caso=20
un TMaskEdit.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Para ello, entiendo que debo de =
utilizar el evento=20
OnExit, y cambiar de Foco dependiendo del propio evento...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>En mi caso, no quiero que salga del =
Edit si est=E1=20
"vacio"</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Pues...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>METHOD MaskEdit1Exit( =
oSender,=20
oNextCtl ) CLASS TForm1<BR>ÂÂ If Empty( ::oMaskEdit1:cText=20
)<BR>ÂÂÂÂÂ Return 0<BR>ÂÂ =
EndIf<BR>RETURN=20
Nil<BR></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2>Â</DIV></FONT>
<DIV><FONT face=3DArial size=3D2>Y me lanza este error...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D2>*****************************=20
Registro de errores *****************************</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000=20
size=3D2> ÂÂÂÂÂÂ ÂÂÂÂ =
Fecha:=20
10/06/05<BR> ÂÂÂÂÂÂ ÂÂÂÂ&=
nbsp;=20
Hora: 20:42:24<BR>ÂÂ Memoria libre: =
514676<BR>ÂÂÂÂ=20
Area actual: 1</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D2>------------------------- Informaci=F3n=20
del compilador --------------------------</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>Â Versi=F3n =
Xailer: Xailer 0.99.5=20
Pre-release 5a<BR>ÂÂÂÂÂ Compilador: xHarbour =
build=20
0.99.51 Intl. (SimpLex) PCode Version: 7<BR>Compilador C/C++: Borland =
C++=20
5.5.1<BR>ÂÂÂÂÂ Plataforma: Windows XP =
Professional=20
5.01.2600 Service Pack 2</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>----------------------- =
Informaci=F3n=20
detallada del error -----------------------</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 =
size=3D2>ÂÂÂÂÂ=20
Subsistema: BASE<BR>ÂC=F3digo de error:=20
1077<BR> ÂÂÂÂÂÂ ÂÂÂ Estado:=20
..F.<BR>ÂÂÂÂ Descripci=F3n: Argument=20
error<BR> ÂÂÂÂÂÂ Operaci=F3n:=20
..NOT.<BR>ÂÂÂÂÂ Argumentos:Â [ 1] =3D Tipo: =
N=20
Valor:ÂÂÂÂÂ&amp ;nbsp;ÂÂÂ=20
0<BR> ÂÂÂÂÂÂ ÂÂ Fichero: =
<BR>ÂC=F3digo=20
error SO: 0</FONT></DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#ff0000 size=3D2>Pila de =
llamadas:<BR>Â=20
TMASKEDIT:WMKILLFOCUS (862)<BR>Â RUNFORM (0)<BR>Â =
TAPPLICATION:RUN=20
(189)<BR>Â MAIN (15)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Adjunto test</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>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV></BODY></HTML>
------=_NextPart_001_0028_01C5CAB7.3E7ECB10--
------=_NextPart_000_0027_01C5CAB7.3E7ECB10
Content-Type: application/x-zip-compressed;
name="Pruebas.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Pruebas.zip"
UEsDBBQAAgAIADOlRjMWhddTYQEAAD0CAAALAAAAUHJ1ZWJhcy54cGpNUctu gzAQvCPxK6j0bqlt
SFSqEBCgtlLUg4ENcWNsa21Hyd93DUnUk2d2x/uY3Vd1+bFetT9x1F4NMLhA HGVgexTGCa1YhR46
buOo9M54d+fJLFzpyQgJyC7vHDvtMY4KLlShBy+BbTROaWJwpKiXThgJubKO qx4sS9okjr6rgitx
AOsWnvfUMY4qjnwCB2iJlOuCJRtKfhIPE6XJUxzVIIFbYATfvJBDAGEarq7s pdEHF6i51mI8OirS
Ih+g4HgKFUk3gXIB7suqzctdQ+u/eqcn7kRfwHTmmEEvaYzZg7l9Bp0fc3XQ C228MQjWboWCnZ86
wJDD6d+Pu6Q5anS9d06occl8cVSK2BbOIFlK/miEcjY8TFVwsyFbF+2KYloC eXoLBC11PZE+bJDl
Nd2vrPN12KKhI/SQCWQLIk9VL/0wh24wuGcfujsmp7vfEKCHym7y7VwwfVx8 PuTz/6v+AVBLAwQU
AAIACAAzpUYzB2qeK8wAAAAmAQAAEgAAAFNvdXJjZS9QcnVlYmFzLnByZ12O QYvCMBCF74X+h6Fe
2h5sXdBDwIMg3hRxPew1Ox3sQEzKmCD+bv+ASVbYZS/D8M2b917XQllAC0dx D0LvVNwCfetbpjvG
keQXzie55MOWbig8IT+tgv1zCMbBQEDWix40aDBxTIZRJ0l+2QTvRP3YEo5a Qb/qFn330ffLRLuy
KIsZWzQhOlVfmg3JHMcq8VgPaQhCsNds6yYxANhMOcOzswrP7A2BWkP1bltl zXnn5LqoG3Wge/33
Axr1Obp7MvtndQrviBP5ILH+C1BLAwQUAAIACABKpUYzpie2gA4BAABmAgAA EAAAAFNvdXJjZS9G
b3JtMS5wcme1kMFOhDAQhu8kvMNkvbAb3bKb6IHbBkrcRGADmHjFMkgjUFJK wj63LyAtRteDiQed
0/SbzN9/frKxLdjASYozMiW8uRvxuRgMDTmrUc4wFLLdbXv5YnCAA5O8Z/yt 8ww4jErIpQ2R1YUH
7h3ZuWTvureaEtuyrSvesWYsEVZPBW9Qblm90tx/OGQZ5OYLCNMkWno9AgA/ iU5JTOMcRFQMr7Tk
avfTYP+xE9H8PgnAl1go1FrO+pJ/6tCJKwdEhl2J8hpEjJPyVQNrrUPjwDj7 bn0JYqpaY52Qmz8t
rflrk3AZnLnvWAFte3V2wPO+0vJYPq/AEsFcKapRduCaN+3KY2VbKc0f0xhi 3vzPWe9QSwMEFAAC
AAgASqVGMxbaOzMBAQAAFwIAABAAAABTb3VyY2UvRm9ybTEueGZtnY9Ba4Mw FMfvgt/hkZOCB82c
W4UdVpvixlRoUnqWma5hXRyasn78JVnaOSg79BLy/u/xe79XEVY2CygG3iq+ 7IePIITi5ZFSYKZK
fM/3AIAePvmQT6dsnOeUq3l/kN0YAMZxBIl50lv93MQxnKZeGT8qyB8AWShy cb/spY2Z+QShWxAA
qijQVo5A+SC2KIL7CAx3gpTFXnCpNqJTO4NIU/y3U3LxtrN0nGWu5fihu2rz xEpo5s+kYMamasd3
0gmVWKVTpbVq/hVolf3WbTesyeF3OIJMG860Io4nM40kR/Fz95ltEnSe+BXS FakX/4vhK8Rm2QWx
S2tXhK1XtaX53jdQSwECFAAUAAIACAAzpUYzFoXXU2EBAAA9AgAACwAAAAAA AAAAACAAtIEAAAAA
UHJ1ZWJhcy54cGpQSwECFAAUAAIACAAzpUYzB2qeK8wAAAAmAQAAEgAAAAAA AAAAACAAtIGKAQAA
U291cmNlL1BydWViYXMucHJnUEsBAhQAFAACAAgASqVGM6YntoAOAQAAZgIA ABAAAAAAAAAAAAAg
ALSBhgIAAFNvdXJjZS9Gb3JtMS5wcmdQSwECFAAUAAIACABKpUYzFto7MwEB AAAXAgAAEAAAAAAA
AAAAACAAtIHCAwAAU291cmNlL0Zvcm0xLnhmbVBLBQYAAAAABAAEAPUAAADx BAAAAAA=
------=_NextPart_000_0027_01C5CAB7.3E7ECB10--

Attached files Pruebas.zip (1.5 KB)Â

TEdit:OnExit

Publicado: Jue Oct 06, 2005 8:55 pm
por jfgimenez
Xevi,
Necesito de un "VALID" de un Edit... en este caso un TMaskEdit.
Para ello, entiendo que debo de utilizar el evento OnExit, y cambiar de Foco dependiendo del propio evento...
En mi caso, no quiero que salga del Edit si está "vacio"
Simplemente retorna .T. o .F. si quieres que el foco abandone el control o no. Si rertornas .F., el foco permanece en el control, y si retornas ..T. o Nil lo abandona.
--
Un saludo,
José F. Giménez
--

TEdit:OnExit

Publicado: Jue Oct 06, 2005 8:59 pm
por Xevi
Muchas Gracias !!!
Sabí­a que algo lo hací­a mal... pero no se me ocurrió volvel .T. o ..F.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:4345732a$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
Necesito de un "VALID" de un Edit... en este caso un TMaskEdit.
Para ello, entiendo que debo de utilizar el evento OnExit, y cambiar de Foco dependiendo del propio evento...
En mi caso, no quiero que salga del Edit si está "vacio"
Simplemente retorna .T. o .F. si quieres que el foco abandone el control o no. Si rertornas .F., el foco permanece en el control, y si retornas .T. o Nil lo abandona.
--
Un saludo,
José F. Giménez
--
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España