如何让用户不能输入数字？

Question

我是用的一个inputbox来接收的，用来生成树的结点如果用户输入数字会有错误发生，请示这个问题的解决方法？

Answer 1

InputBox 实际上调用的是 InputQuery
在InputQuery中找到下列代码:      Edit := TEdit.Create(Form);
      with Edit do
      begin
        Parent := Form;
        Left := Prompt.Left;
        Top := MulDiv(19, DialogUnits.Y, 8);
        Width := MulDiv(164, DialogUnits.X, 4);
        MaxLength := 255;
        Text := Value;
        SelectAll;
      end;
给Edit的OnKeyPress事件指定事件代码，
在事件代码中来控制禁止用户输入数字

Answer 2

自己做一个同用一点的能录入数据的窗体,不要用InputQuery
然后EditMask编辑框，不让输入数字

Answer 3

接路人的!
  if not (key in ['0'..'9',#8]) then
  begin
  key :=#0;
  beep;
  end;

Answer 4

if not (key in ['0'..'9',#8,#13]) then
  begin
  key :=#0;
  beep;
  end;