本人刚学习delphi ,最近想编写一个数据库方面的程序.
我在edit1 中的 onexit 中写如下语句
if length(edit1.text)<>8 then
begin
showmessage('长度不为8位'); edit1.setfocus;
end;但是当我按下放弃或退出按纽时候,如果焦点在edit1组件中的话,则要触发onexit事件,\
请问我应该怎样做才能按 放弃或退出按纽时候才能不触发edit1的onexit事件.
或者各位大虾给出自己写类似程序判断的方法.不胜感激.
我在edit1 中的 onexit 中写如下语句
if length(edit1.text)<>8 then
begin
showmessage('长度不为8位'); edit1.setfocus;
end;但是当我按下放弃或退出按纽时候,如果焦点在edit1组件中的话,则要触发onexit事件,\
请问我应该怎样做才能按 放弃或退出按纽时候才能不触发edit1的onexit事件.
或者各位大虾给出自己写类似程序判断的方法.不胜感激.
解决方案 »
- 自己编写的软件如何做30天试用期的功能?
- Delphi 先关闭当前窗体再打开另一个窗体的???
- 1000分求论文:UP给分。人事管事系统论文。或者学校档案管理系统论文。或者学校学籍管理系统论文。
- 怎么给另一个程序发送消息执行指定的操作?
- TQUERY能单独返回记录吗?(不需要连接datasource)
- delphi 怎么作个没有框框的程序啊
- if then else 的用法.
- 让一个程序暂停执行最好用哪个函数
- 紧急求助,在线等待,一个尴尬的问题。
- 怎么样才可以按下ctrl+shit可以选中dbgrid的多行记录并把选择到的记录加到combobox中??
- 100分寻求答案:Agent动画人物如何弹出帮助提示框(就是有office助手里有选项和搜索的提示框)?
- 一个设计思路的问题
if length(edit1.text)<>8 then
begin
if Self.ActiveControl<>Button1 then //判断一下~~button1为退出按钮
begin
showmessage('长度不为8位');
edit1.setfocus;
end;
end;
来接分