在标题为“输入控制”的窗体
Form1
上，添加一个文本内容为空的编辑框
Edit1
；然后再添加一个标题为空的面板
Panel1
。程序运行时，只允许在
Edit1
中输入数字字符，当在
Edit1
中输入非数字字符时，则
Panel1
中显示“
?
是非数字字符”（其中
?
是输入的字符），并撤销该字符输入，如图
8-6
（
a
）所示；当在
Edit1
中输入数字字符时，则
Panel1
中显示“
?
是数字字符”（其中?
是入的字符）

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then
begin
Panel1.Caption := Char(Key) + '是非数字字符';
Key := #0;
end
else Panel1.Caption := Char(Key) + '是数字字符';
end;