求肋，怎样使Edit文本框内只允许输入数字？？？？

Question

急,,,怎样使Edit文本框内只允许输入数字？？？？

Answer 1

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

Answer 2

在Edit的OnKeyPress里面加入下面的代码。
  if(key >= '0')and(key <= '9')or(key = chr(8))  then
    exit
  else
    key := chr(0);

Answer 3

1.使用onkeydown判断输入的字符.如果不在0..9范围就不写上去.2,用onchange判断刚才输入的是否是数字

Answer 4

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

Answer 5

在Edit的OnKeyPress里面加入下面的代码:
if not (key in ['0'..'9',#8] then
begin
key:=#0;
end;

Answer 6

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9','.',#8]) then
  begin
    beep;
    key:=chr(0);
  end;
end;如果只想输入整数则：
if not(key in ['0'..'9',#8]) then

Answer 7

可以试用Additional控件中的MaskEdit，在Input Mask Editor对话框中可以进行格式设定.

Answer 8

if key<=' ' then exit; //放走控制键
if (not (key in ['0'..'9','.'])) then
   key:=#0;
第一种你只能输入数字，控制键和小数点都输入不了

Answer 9

>SetWindowLong(Edit1.Handle, GWL_STYLE,
                  GetWindowLong(Edit1.Handle, GWL_STYLE) or
                  ES_NUMBER);经典！收藏！

Answer 10

if not (key in ['0'..'9','.',#8]) then key:=#0;挺好的

Answer 11

小白.net的方法比较特殊。。收藏

Answer 12

#0代表什么？chr(8)代表什么呢？

Answer 13

用Additional控件中的MaskEdit，在Input Mask Editor对话框中可以进行格式设定.

Answer 14

firetoucher(风焱) 方法好好。收藏！！