如何防止在dbedit（与数字型字段相连）输入‘－’号

Question

在OnExit事件中判断
if DBEdit1.Field.AsFloat < 0 then　...

Answer 1

onpresss
if key='-' then
   abort;

Answer 2

try
  StrToFloat(Edit1.Text);
except
  ...
end;

Answer 3

keyPress
if key='-' then
 key:=#0;

Answer 4

xgto(陪我去看流星雨，可以吗？) tazhch(鸭) :  不能这样做，因为可能会要输入负数。

Answer 5

问题不是输不输‘-’号，而是dbedit就不能是数字值（包括负数、小数）以
外的字符。
提示：上边有答案了，自己试试吧！

Answer 6

renzhm(戴尔飞) :
  谁说不能是数值?

Answer 7

在OnExit事件中判断
if DBEdit1.Field.AsFloat < 0 then　
begin
   dbedit1.setfocus;
   //出错提示
end;