如何在一个编辑框(Tedit)中的文本达到一定条件后自动把光标移动带另外一个EDIT?(100分)

  • 主题发起人 主题发起人 Banny
  • 开始时间 开始时间
B

Banny

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在一个编辑框(Tedit)中的文本达到一定条件后自动把光标移动带另外一个EDIT?
 
if length(Edit1.text)=xx
then setfocus( );
 
form1.activeconstrol:=eidt2;
 
onchange事件

如wjiachun所说。
 
onKeyUp事件中(我用过)
if length(Edit1.text)=xx
then edit2.setfocus;
 
唉,都可以得吧
 
#13是回车键

if key(#13) and (activeconstrol is teidt) then
你想要做的事。
 
顺便再问一下,谁知道怎样使tedit变成透明的?
 
不重画背景!WMEraseBkgnd(var Message: TWMEraseBkgnd);
 
To BANNY:
变透明,将EDIT1。VISIBLE:=FALSE;
 
跑的快: 你试试就知道不对的.

检索过去的问题:
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=263222
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=106145
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=93775
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=91696
 
在ONCHANG事件里:
if upper(edit1.text)='GCQ' then
edit2.setfocus;

透明的问题,可以通过重画EDIT1后的背景实现!
 
gcq和only you能说的详细一点吗?跑的快的只是把edit变成不可见的,而不是透明的啊!
 
就是把TEDIT后的图形显示在TEDIT前的TIMAGE里,用一定的透明度画,就可以了!
 
最好是在 OnChange 事件里做判断, 满足条件后用 SetFocus 或 Perform 转移焦点 (Delphi 老鸟之建议)
 
如果edit的光标在最后,我想通过程序把光标变到最前面,可以吗?
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
825
DelphiTeacher的专栏
D
后退
顶部