----------怎样限制文本框中仅能输入数值(包括小数点)?----------(30分)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key='.'then
if pos('.',edit1.text)>0 then
begin
key:=#0;
exit;
end;
if key='-' then
if length(edit1.text)>0 then key:=#0;
if not(key in [#8,'0'..'9','.']) then key:=#0;
end;
差不多就是这样你可稍稍根据需要再改善一下.

当Edit1失去焦点时，发生如下事件
procedure TForm1.Edit1Exit(Sender: TObject);
begin
try
strtoFloat(Edit1.text);
except
showmessage('输入不是实数');
Edit1.SetFocus;;
end;
end;

没有得到答案.
chinaplate的意思同我一样.
我找了个可以输入货币的控件,基本能够解决这个问题.