在onexit事件中判断,如果不符合要求的话,把焦点移到本身就可以了
解决方案 »
- 关于银行在线支付
- 查询问题
- 读写类似表结构的txt
- TdxDBGrid求和怎么才能结果一查询出来,footer里的求和等相关项就能出来???
- 寻类似于outLook日历这样的控件
- 在wwDBGrid中,处理keydown事件时的问题!
- 搞了几天没有成功,能帮帮我吗?关于DSPack进行远程视频传输。分不够再加,只要能解决。
- 怎样编写DataSetProvider的DataRequest啊
- 做过WebService/SOAP的兄弟请进。这里有一个头疼的问题。
- 使用webbrowser出错“List index out of bounds(0) ”为什么!!!!
- 我这样做查询为什么找不到记录?
- 一个小问题?
代码
except
屏蔽错误 SHOWMESSAGE('出错信息')
procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
try
if length(trim(maskedit1.Text))<10 then
begin
maskedit1.SetFocus ;
end;
except
showmessage('yes');
end;
end;end.可无论在集成环境中还是在编译好的文件中运行,显示的都是系统的异常出错信息并没有屏避啊!!!!!