如何判断Edit控件是否有输入和没有输入?
我加了一个edit的控件,但是我怎样才能知道它有没有输入?
我加了一个edit的控件,但是我怎样才能知道它有没有输入?
解决方案 »
- delphi 如何读写I2C协议?
- 请高手指点一下,三层中主从表的更新的问题!谢谢!(困扰我一周了)
- 如何动态设置ADOQuery的Connection属性?
- 报表问题(不够还可以加)
- delphi写的dll,被pb调用时非法操作
- 学习DELPHI必须学习Object Pascal吗?
- 按钮页?
- 做DLL的开发时,有哪些WINDOWS常用数据类型,如WORDBOOL等.指针类型有没有?
- 关于Application.OnMessage
- 编写爱心软件的倡议书
- 关于WebConnection 问题告急!!!!
- delphi的属性语句可以直接用在函数中吗?wParam和iParam可以直接用delphi的语句吗?
那么在OnChange里面修改Edit的tag属性(默认为0),改为一个非0的数字。以后用来判断是否有输入就直接看Tag是否是非零了2)判断Edit的内容是否为空。直接 if edit1.text='' then....
请楼主明示
事件是 ONENTER
判断大概是 YOUR_eDIT.TEXT<>''
在OnChange事件里写 Edit1.Tag:= 1;
我加了一个edit的控件,但是我怎样才能知道它有没有输入?我的意思是说:EDIT控件有输入时,必须输入一些数据
没有输入有二种情况1:输入全是空格。2:输入一些数据后用BACKSPACE删除了
以上都会改变Edit1.Tag标志啊。但问题在于我如何知道
Edit1里是数据还是空格(二个空格和三个空格是不能用EDIT.TEXT<>''来判别的,它只能判别一个空格)
oldvalue=Edit1.text ,
在onExit 事件里 进行判断,编写如下代码:
if OldValue=Edit1.text then
Messagedlg('没有输入',mtinformation,[mbOK],0)
else begin // OldValue<>Edit1.text
if Trim(Edit1.text)<>'' then //排除输入的空格
Messagedlg('你输入了数据',mtinformation,[mbOK],0);
end
不知你要的是不是这样的功能?
showmessage('没有数据!');
Showmessage('输入');
else
Showmessage('没有输入');