在Delphi中使用编辑框时，有时需要限制输入它的字符类型，如只接收数字或只接收字母。我们可以在TEdit组件的on..KeyPress事件中对输入进行处理，以限制对编辑框的输入。
限制为只接收数字的例程如下：
procedure TForm1.Edit1KeyPress(Sender: TObject;
var..Key: Char);
begin
if not(key in['0'..'9',#8])then
begin
key:=#0;
MessageBeep(1);
//Beep;
调用系统声音也行!
end;
end;
程序通过TEdit组件的on..KeyPress事件，判断按键是否为0至9这10个数字键，或者是BackSpace键，如果不是则将该输入设置为空（key:=#0），将其屏蔽掉；如果是则接收字符输入。这里有一点需要说明的是，#8对应BackSpace键，我们不应将它也屏蔽掉，否则不能使用退格（BackSpace）键删除错误的数字输入。
同样，如果要限制编辑框只接收字母（不管大小写）输入，程序如下：
procedure TForm1.Edit1KeyPress(Sender: TObject;
var..Key: Char);
begin
if not(key in['a'..'Z',#8])then
begin
key:=#0;
MessageBeep(1);
//Beep;
调用系统声音也行!
end;
end;
推荐阅读
- delphi|Delphi面向对象编程的20条规则【转】
- delphi|Delphi7程序调用C#写的DLL解决办法
- delphi|Delphi的StringReplace
- delphi|Delphi ServerSocket,ClientSocket示例
- 语言|转（我的野蛮成长）
- Delphi|如何准备迎接新版本Embarcadero RAD Studio Delphi、C++Builder 11
- Delphi|RAD Studio Delphi C++ Builder 2020年11月开发路线图PPT（研发Delphi WebAssembly编译器）
- 开发管理|英雄不问出处 程序员不问岁数
- Delphi|Delphi/C#之父首次访华（55岁了 每天都写代码）