delphi怎么限制文本框只能输入数字？delphi如何限制文本框只能输入数字？工具/原料moredelphi 7方法/步骤1/6分步阅读

首先，打开delphi 7，默认已经创建好了一个工程，如下图所示。

2/6

然后在窗口中添加一个标签控件和文本框控件，并修改标签的文字为成绩，文本框的name为EdtSorce，text为空。

3/6

然后选择文本框，并在属性面板中切换到“事件”选项卡，找到onKeyPress事件，点击进入代码编辑窗口。

4/6

然后在打开的代码窗口中写入以下代码。

5/6

运行后，效果如下，大家可以发现只有按下数字键，才会有字符在文本框中显示出来，其它按钮都没有反应。

6/6

如果大家还想允许小数字出现，并且退格键可用，那么还可以如下图所示进行代码修改。

DELPHI编程语言软件开发