Edit控件如何限制用户只能输入数字？

[蜘蛛网咖]

急切！不用MaskEdit.

[menye]

在KeyPress事件中

procedure TfrmMain.editoldvalueKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.', '0'..'9']) and (key <> #13) and ((key <> #46)) and ((key
<> #8)) then
Key := #0;
end;

[IORILI]

procedure TfrmMain.edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['.', '0'..'9']) and (key <> #13) and ((key <> #46)) and ((key
<> #8)) then
Key := #0;
end;