急等答案请帮忙！

Question

如果只能输入数字的话，可以这样。
在EditKeyPress事件中.
if not ((Key>='0') and (Key<='9')) then
  if Key <> #8 then      //为小数点
  Key := #0;
其他类型的可以参考！

Answer 1

在edit1的onexit事件里加入;
var 
  lsize,i:integer;
begin
  lsize:=length(edit1.text);
  if pos('.db',edit1.text)=0 then
    begin
      showmessage('输入错误');
     edit1.setfocus;
   end;
end;
end;

Answer 2

genphone_ru(票票)thedream(梦幻使者)这两们仁兄的方法，我都曾用过，是可以的

Answer 3

只对EditKeyPress事件处理是不行的,用户可能用鼠标给你粘一些乱七八糟的东西

Answer 4

可以在OnChange事件里处理。
thedream(梦幻使者)的方法是可以，不过如果窗体上还有个退出按钮里就不好了，所以如果有退出按钮时最好还要加多个判断退出时是不是按了退出按钮