5,386
社区成员
发帖
与我相关
我的任务
分享如何实现数据录入框在数据录入无效时给与提示？
如何实现数据录入框在数据录入无效时给与提示？
比如时间录入框录入 2003-2-30 时自动提示输入无效。
xwbyte@163.net
比如时间录入框录入 2003-2-30 时自动提示输入无效。
xwbyte@163.net
...全文
请发表友善的回复…
发表回复
大地精灵 2003-10-20
- 打赏
- 举报
真是能人辈出啊，我就顶一下吧
Dlwxn 2003-10-20
- 打赏
- 举报
在Edit的onExit里,一定要编译后直接运行程序才能看到。
procedure TForm1.Edit1Exit(Sender: TObject);
begin
try
StrToDate(Edit1.Text);
except
Application.MessageBox(PChar('时间格式为：2003-2-30'),'错误',MB_OK+MB_ICONINFORMATION);
Edit1.SetFocus;
end;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
try
StrToDate(Edit1.Text);
except
Application.MessageBox(PChar('时间格式为：2003-2-30'),'错误',MB_OK+MB_ICONINFORMATION);
Edit1.SetFocus;
end;
end;
pankun 2003-10-20
- 打赏
- 举报
一楼朋友的办法不错,呵呵,学习.
pankun 2003-10-20
- 打赏
- 举报
在发生输入事件时检查.例如
procedure TForm1.Edit1Change(Sender: TObject);
begin
if 判断 then
提示
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if 判断 then
提示
end;
47522341 2003-10-20
- 打赏
- 举报
在edit的onkeypress里
if key = #13 then
try
strtodate(edit1.Text);
except showmessage('asdf');
end;
if key = #13 then
try
strtodate(edit1.Text);
except showmessage('asdf');
end;
