限制Text框只能输入1~9的数字怎样做？也可以提示错误。谢谢。

Question

如题：也可以如果那个text框里输的不是1~9的数据添加时就出现提示错误。谢谢。

Answer 1

在Text的OnKeyPress事件里面加入
if not (Key In ['1'..'9',#8]) then 
Begin
  //在这里写你要提示错误的信息
End

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
  begin
    key:=#0;
    MessageBeep(1);
  end;
end;

Answer 3

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
  begin
    key:=#0;
    MessageBeep(1);
  end;
end;

Answer 4

用TMaskEdit如何？http://lysoft.7u7.net

Answer 5

SetWindowLong(Edit1.Handle,  GWL_STYLE,  
                                   GetWindowLong(Edit1.Handle,  GWL_STYLE)  or
                                   ES_NUMBER);