Edit只输数字

procedure XXXXXX.Edit1KeyPress(Sender: TObject; var Key: Char);

var

  m:boolean;

begin

  m:=(key<#8)or(key>#8)and(key<#46)or(key>#46)and(key<#48)or(key>#57);

  if m then

     key:=#0;

end;

 

 

procedure Tdkcljl.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

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

      key:= #0;

end;

 

 

 

 

 

#8为backspace键，#46为小数点，#48～57为数字0～9，#0为空。