TEdit控件中OnExit函数使用疑问？ ( 积分: 50 )

I

icezero

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-25

• #1

程序窗口中有一个TEdit和一个TButton控件。TEdit重载了OnExit函数用于检查输入数字位数是否达到要求（要求32位数字），如达不到要求弹出提示框；单击TButton退出窗口。
现在问题是：如果TEdit中输入了几位数字（不到32位），再想单击TButton退出窗口，就会激活TEdit控件的OnExit函数，弹出提示框，怎么才能不进入OnExit函数？

 

L

lsz100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-25

• #2

在EDIT ONKEYDOWN事件中检查输入数字位数是否达到要求

 

D

delhpi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-25

• #3

自己搞的自相矛盾。

 

I

icezero

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-25

• #4

EDIT ONKEYDOWN里不行，每输入一位就会提示一次位数不够！

 

C

china2k

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-25

• #5

你可以在退出前再判断呀。

 

I

icezero

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-25

• #6

业务要求必须在OnExit事件中判断。不过我已经找到解决方法了：
在TButton的OnMouseEnter事件中置OnExit := nil,在OnMouseLeave事件中置回原值就可以了。

 

Z

zj_mpy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-25

• #7

mouse 离开