Delphi-Edit中只能输入数字且只能输入一个小数点

使用这种功能必须使用 OnKeyPress 事件，该事件是在窗体中获得键盘输入的焦点，并且在用户按键时发生。OnKeyPress 事件中有个重要参数：Key。Key 参数为Char 型，它能够获得用户的按键值。下面的代码就只能输入0~9 之间的数字，且只能输入一个小数点，按下其他键时无效。

1 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
2 begin
3   if not (key in ['0'..'9','.',#8]) then
4     key:=#0;
5   if (key='.') and (Pos('.',Edit1.Text)>0)   then
6     key:=#0;
7 end;