OnCheckState
Publicado: Dom Oct 23, 2005 11:01 am
This is a multi-part message in MIME format.
------=_NextPart_000_000B_01C5D7C1.297CC570
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000C_01C5D7C1.297CC570"
------=_NextPart_001_000C_01C5D7C1.297CC570
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hello Ignacio,
I'm using 2 TEdit-controls, TEdit1 and TEdit2.=20
When the TEdit1:Value is empty I wish the TEdit2 being disabled.=20
To simulate the WHEN-clause I use the TEdit2:OnCheckState().
METHOD Edit2CheckState( oSender ) CLASS TForm1
RETURN !EMPTY(::oEdit1:Value)
Please take a look to the example.
TEdit1:Value =3D "a"
TEdit2 is enabled
Now delete the "a" and try to leave the TEdit1-control by the Tab-key.=20
The cursor disappears and can't be moved by Tab but only with the mouse.
Regards
Ingo
------=_NextPart_001_000C_01C5D7C1.297CC570
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.2769" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>Hello Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>I'm using 2 TEdit-controls, TEdit1 and=20
TEdit2.Â</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>When the TEdit1:Value is empty I wish =
the TEdit2=20
being disabled. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>To simulate the WHEN-clause I use the=20
TEdit2:OnCheckState().</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Â<STRONG>ÂÂ METHOD =
Edit2CheckState(=20
oSender ) CLASS TForm1<BR>ÂÂÂ RETURN=20
!EMPTY(::oEdit1:Value)<BR></STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>
<DIV><FONT face=3DArial size=3D2>Please take a look to the =
example.</FONT></DIV>
<DIV>Â</DIV>
<DIV>TEdit1:Value =3D "a"</DIV>
<DIV>TEdit2 is enabled</DIV>
<DIV>Â</DIV>
<DIV>Now delete the "a" and try to leave the TEdit1-control by the =
Tab-key.=20
</DIV>
<DIV>The cursor disappears andÂcan't beÂmoved by Tab but only =
with the=20
mouse.</FONT></DIV></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Regards</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Ingo</FONT></DIV></BODY></HTML>
------=_NextPart_001_000C_01C5D7C1.297CC570--
------=_NextPart_000_000B_01C5D7C1.297CC570
Content-Type: application/x-zip-compressed;
name="Test.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Test.zip"
UEsDBAoAAAAAALRTVzMAAAAAAAAAAAAAAAAHAAAAU291cmNlL1BLAwQUAAAA CAAdU1czQJ2BI0UB
AAAuBAAAEAAAAFNvdXJjZS9Gb3JtMS5wcme9U11PgzAUfSfhP1zny7ZkMJYY k75tDOISgQWq0UeE
66h0oF1JjL9eWuIypvPJ2afm3I9z7rmtPTYNGMNa1C9YSgIUd1Ijy1QiI+DX fi22jvUqNi24wF1W
CGRPTbUhOm3eyFqQr4pmS8CZTpzryWw6vVKobRqmccmqjDc5wuAhZRyFlRUD hbu38yQBqhnAj6Og
u6sQALhRsI5CL6RQR+VCVseglzPp/ATOVAMdaCWlwN0irTaYwypcUbB8ax8O PHoTLcEV2A6rmIej
Q1yzupxl5RDqBKscBfQSVMmqYpKlnH3giSStyC0wKxPZ0vSyTMMLl9qFvk2d 5+/PW22TbU/+9HTz
n6Prb8bB4bZNgxCX1ztUjscevYtDCBk/s66T+/qmLca3pv0J3cb+U+Lp13Kk ca/pwgvW9HFISPch
yH3KGxydR+YnUEsDBBQAAAAIAB1TVzNAZui/awEAAFgDAAAQAAAAU291cmNl L0Zvcm0xLnhmbZWS
UW+CMBSF3038Dzc8LJgQA6hTSfYwEKObSGK7+UykzoZaFiiZ2a9f26GwZJvx hfTeczn9zk2jEC/i
GQQFSQSZ58XR7EGwekQIsKqcbqfbAQBUvZPCa0/ptuchIvy84mlpwnBgW+AO BvLjji1wRi6cp3aY
nAR4D2BgUgqj7ubznOsuVgezV/ubYEQIUMJLQKSge8OCiQXSe2jbF0ceMEq4 2NJUHJSF60x/KgtC
3w7a3XEmtcQiyumRfhI/PymlP+9flOT0uxLzJaeCJkyKOoGK37TOWWr0Xr2v 7RIvIPafwgCroGFK
haOTqpNMuiYfpkzH9nUg5dFapePKJcrQU7VRuzXzmrDqGyMxLs3mblmF69nf DO5NDPZViIYh5sGB
7DIkJImW9HVN71baOPMF17R+JUTOr/OO5c7G9/KtKNxRa6Z5fHdx1nDwKE8T tiFlxbR6LOLndhxG
d5n+S6Po8v8QmxC/bNaasNv5AlBLAwQUAAAACAAwTlcz7081W9AAAAAlAQAA DwAAAFNvdXJjZS9U
ZXN0LnByZ02PTYvCMBCG74X+h6F7aQW1XRAh4KFi3ZOytDl4jelgo2lTxgn+ /W2zu+BxHt55P9aL
OIIFfJO744MFSHxyIAfFaH7v1Ui3wPb41B2hufrhJqBhRdy71ltokaAcR2se io0bgrj07Ej8e/le
QJEvi+3yM883M13HURx9mEFb3yIkF2Us0kp3ycynPhpbTwgnZYY0mx4AmkrC oZQVfFX1qTwHFlJ1
SBVaGrYIYgfJXDsJAnl01BdpJs74St/lkImmc68/73ef2ofEOKqRPU1rfgBQ SwMEFAAAAAgADFlS
MzO9Ih9eAQAANQIAAAgAAABUZXN0Lnhwak1RwW6DMAy9I/EraOyew1aKxlQK ArRVqnZIwaVZQxI5
SdX+/Rxop554z3nYz8/7uqk+16vuJ466mwEGV4ijDGyPwjihFevAujiqvDPe zSSZJSs9GSEB2fWD
40F7jKOSC1XqwUtgucYpTQyOVPXSCSOhUNZx1YNlSZfE0a4uuRJH6rfwoqdZ cVRz5BM4QEukWpcs
yenxi3jwkiYvcdSABG6BEXz3Qg4BBDdc3diOB0+Bm1sjxpOjLh3yAUqO59CS hBMoF+C+qrui2ra0
+Zt3euJO9CVMF44Z9JJ8zOvP8zM4+LFQR714bb0xCNZuhIKtnw6A4Q2npz8e kvak0fXeOaHG5eWb
o1LENnAByVIKSCNUc9bBVclNTjss2hXVtAQK9V4IWpp6Jn3YICsaOl3VFOuw RUtX6CETyBZEoape
+mEu3WGIz/7rHpiiPvyGAn2obV5s5obpcu/5jK/PN/0DUEsBAhQACgAAAAAA tFNXMwAAAAAAAAAA
AAAAAAcAAAAAAAAAAAAQAP9BAAAAAFNvdXJjZS9QSwECFAAUAAAACAAdU1cz QJ2BI0UBAAAuBAAA
EAAAAAAAAAABACAAtoElAAAAU291cmNlL0Zvcm0xLnByZ1BLAQIUABQAAAAI AB1TVzNAZui/awEA
AFgDAAAQAAAAAAAAAAEAIAC2gZgBAABTb3VyY2UvRm9ybTEueGZtUEsBAhQA FAAAAAgAME5XM+9P
NVvQAAAAJQEAAA8AAAAAAAAAAQAgALaBMQMAAFNvdXJjZS9UZXN0LnByZ1BL AQIUABQAAAAIAAxZ
UjMzvSIfXgEAADUCAAAIAAAAAAAAAAEAIAC2gS4EAABUZXN0LnhwalBLBQYA AAAABQAFACQBAACy
BQAAAAA=
------=_NextPart_000_000B_01C5D7C1.297CC570--
Attached files Test.zip (1.7 KB)Â
------=_NextPart_000_000B_01C5D7C1.297CC570
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000C_01C5D7C1.297CC570"
------=_NextPart_001_000C_01C5D7C1.297CC570
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hello Ignacio,
I'm using 2 TEdit-controls, TEdit1 and TEdit2.=20
When the TEdit1:Value is empty I wish the TEdit2 being disabled.=20
To simulate the WHEN-clause I use the TEdit2:OnCheckState().
METHOD Edit2CheckState( oSender ) CLASS TForm1
RETURN !EMPTY(::oEdit1:Value)
Please take a look to the example.
TEdit1:Value =3D "a"
TEdit2 is enabled
Now delete the "a" and try to leave the TEdit1-control by the Tab-key.=20
The cursor disappears and can't be moved by Tab but only with the mouse.
Regards
Ingo
------=_NextPart_001_000C_01C5D7C1.297CC570
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.2769" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>Hello Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>I'm using 2 TEdit-controls, TEdit1 and=20
TEdit2.Â</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>When the TEdit1:Value is empty I wish =
the TEdit2=20
being disabled. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>To simulate the WHEN-clause I use the=20
TEdit2:OnCheckState().</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Â<STRONG>ÂÂ METHOD =
Edit2CheckState(=20
oSender ) CLASS TForm1<BR>ÂÂÂ RETURN=20
!EMPTY(::oEdit1:Value)<BR></STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>
<DIV><FONT face=3DArial size=3D2>Please take a look to the =
example.</FONT></DIV>
<DIV>Â</DIV>
<DIV>TEdit1:Value =3D "a"</DIV>
<DIV>TEdit2 is enabled</DIV>
<DIV>Â</DIV>
<DIV>Now delete the "a" and try to leave the TEdit1-control by the =
Tab-key.=20
</DIV>
<DIV>The cursor disappears andÂcan't beÂmoved by Tab but only =
with the=20
mouse.</FONT></DIV></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Regards</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Ingo</FONT></DIV></BODY></HTML>
------=_NextPart_001_000C_01C5D7C1.297CC570--
------=_NextPart_000_000B_01C5D7C1.297CC570
Content-Type: application/x-zip-compressed;
name="Test.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Test.zip"
UEsDBAoAAAAAALRTVzMAAAAAAAAAAAAAAAAHAAAAU291cmNlL1BLAwQUAAAA CAAdU1czQJ2BI0UB
AAAuBAAAEAAAAFNvdXJjZS9Gb3JtMS5wcme9U11PgzAUfSfhP1zny7ZkMJYY k75tDOISgQWq0UeE
66h0oF1JjL9eWuIypvPJ2afm3I9z7rmtPTYNGMNa1C9YSgIUd1Ijy1QiI+DX fi22jvUqNi24wF1W
CGRPTbUhOm3eyFqQr4pmS8CZTpzryWw6vVKobRqmccmqjDc5wuAhZRyFlRUD hbu38yQBqhnAj6Og
u6sQALhRsI5CL6RQR+VCVseglzPp/ATOVAMdaCWlwN0irTaYwypcUbB8ax8O PHoTLcEV2A6rmIej
Q1yzupxl5RDqBKscBfQSVMmqYpKlnH3giSStyC0wKxPZ0vSyTMMLl9qFvk2d 5+/PW22TbU/+9HTz
n6Prb8bB4bZNgxCX1ztUjscevYtDCBk/s66T+/qmLca3pv0J3cb+U+Lp13Kk ca/pwgvW9HFISPch
yH3KGxydR+YnUEsDBBQAAAAIAB1TVzNAZui/awEAAFgDAAAQAAAAU291cmNl L0Zvcm0xLnhmbZWS
UW+CMBSF3038Dzc8LJgQA6hTSfYwEKObSGK7+UykzoZaFiiZ2a9f26GwZJvx hfTeczn9zk2jEC/i
GQQFSQSZ58XR7EGwekQIsKqcbqfbAQBUvZPCa0/ptuchIvy84mlpwnBgW+AO BvLjji1wRi6cp3aY
nAR4D2BgUgqj7ubznOsuVgezV/ubYEQIUMJLQKSge8OCiQXSe2jbF0ceMEq4 2NJUHJSF60x/KgtC
3w7a3XEmtcQiyumRfhI/PymlP+9flOT0uxLzJaeCJkyKOoGK37TOWWr0Xr2v 7RIvIPafwgCroGFK
haOTqpNMuiYfpkzH9nUg5dFapePKJcrQU7VRuzXzmrDqGyMxLs3mblmF69nf DO5NDPZViIYh5sGB
7DIkJImW9HVN71baOPMF17R+JUTOr/OO5c7G9/KtKNxRa6Z5fHdx1nDwKE8T tiFlxbR6LOLndhxG
d5n+S6Po8v8QmxC/bNaasNv5AlBLAwQUAAAACAAwTlcz7081W9AAAAAlAQAA DwAAAFNvdXJjZS9U
ZXN0LnByZ02PTYvCMBCG74X+h6F7aQW1XRAh4KFi3ZOytDl4jelgo2lTxgn+ /W2zu+BxHt55P9aL
OIIFfJO744MFSHxyIAfFaH7v1Ui3wPb41B2hufrhJqBhRdy71ltokaAcR2se io0bgrj07Ej8e/le
QJEvi+3yM883M13HURx9mEFb3yIkF2Us0kp3ycynPhpbTwgnZYY0mx4AmkrC oZQVfFX1qTwHFlJ1
SBVaGrYIYgfJXDsJAnl01BdpJs74St/lkImmc68/73ef2ofEOKqRPU1rfgBQ SwMEFAAAAAgADFlS
MzO9Ih9eAQAANQIAAAgAAABUZXN0Lnhwak1RwW6DMAy9I/EraOyew1aKxlQK ArRVqnZIwaVZQxI5
SdX+/Rxop554z3nYz8/7uqk+16vuJ466mwEGV4ijDGyPwjihFevAujiqvDPe zSSZJSs9GSEB2fWD
40F7jKOSC1XqwUtgucYpTQyOVPXSCSOhUNZx1YNlSZfE0a4uuRJH6rfwoqdZ cVRz5BM4QEukWpcs
yenxi3jwkiYvcdSABG6BEXz3Qg4BBDdc3diOB0+Bm1sjxpOjLh3yAUqO59CS hBMoF+C+qrui2ra0
+Zt3euJO9CVMF44Z9JJ8zOvP8zM4+LFQR714bb0xCNZuhIKtnw6A4Q2npz8e kvak0fXeOaHG5eWb
o1LENnAByVIKSCNUc9bBVclNTjss2hXVtAQK9V4IWpp6Jn3YICsaOl3VFOuw RUtX6CETyBZEoape
+mEu3WGIz/7rHpiiPvyGAn2obV5s5obpcu/5jK/PN/0DUEsBAhQACgAAAAAA tFNXMwAAAAAAAAAA
AAAAAAcAAAAAAAAAAAAQAP9BAAAAAFNvdXJjZS9QSwECFAAUAAAACAAdU1cz QJ2BI0UBAAAuBAAA
EAAAAAAAAAABACAAtoElAAAAU291cmNlL0Zvcm0xLnByZ1BLAQIUABQAAAAI AB1TVzNAZui/awEA
AFgDAAAQAAAAAAAAAAEAIAC2gZgBAABTb3VyY2UvRm9ybTEueGZtUEsBAhQA FAAAAAgAME5XM+9P
NVvQAAAAJQEAAA8AAAAAAAAAAQAgALaBMQMAAFNvdXJjZS9UZXN0LnByZ1BL AQIUABQAAAAIAAxZ
UjMzvSIfXgEAADUCAAAIAAAAAAAAAAEAIAC2gS4EAABUZXN0LnhwalBLBQYA AAAABQAFACQBAACy
BQAAAAA=
------=_NextPart_000_000B_01C5D7C1.297CC570--
Attached files Test.zip (1.7 KB)Â