?????
maskedit规定了输入的规则啊?怎么会不正确?
或者
procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8,#13,'.']) then
begin
showmessage('aa');
maskedit1.Clear;
key:=#8;
end;
maskedit规定了输入的规则啊?怎么会不正确?
或者
procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8,#13,'.']) then
begin
showmessage('aa');
maskedit1.Clear;
key:=#8;
end;
解决方案 »
- 询问tcpserver和tcpclient之间传送文件问题!
- 请大家帮忙翻译一下c++builder的程序,很简单的
- TServerSocket如何向指定的连接发送信息?
- fastReport中如何实现同时打印2个表的内容?
- 求 TDBLookupComboboxEh 的使用方法
- 狂散一百分,泣血跪求一简单问题的答案
- 请教:用Query控件能获得一个数据库的所有字段名吗?
- delphi编写COM时候,如何写构造函数?如何析构?怎么释放VARIANT变量
- 前辈们进来看看,关于RadioGroup和数据库的问题 在线等..
- 给100分========关于动态调用Dll的问题,=======给100分!
- 为什么用 filelistbox 写完的程序换到其他的机器上就不好用了?
- 如何引用math单元
我要求用户输入4个整数EditMask用:990:990:990:990
用户可能会有数值没有输入,就会有异常啊!而我也不能用text:=''来判断因为4个数在一个MaskEdit中
MaskEdit虽能控制输入格式,但并不能控制用户输入是否为空啊,当输入为空时我的程序怎么获知?而且不是MaskEdit.text=null,因为4个数在一个MaskEdit中用":"号分开的。注意四个参数均不能为空!有为空,运行程序就会有异常,所以我要屏蔽这个异常。