最简单的限制edit输入

procedure  TForm1.Edt_NumKeyPress(Sender: TObject;  var  Key: Char);    begin     If  not  (key  in  [# 48 ..# 57 ])  then     begin      key: =  # 0 ;    ShowMessage( ' 只能输入数字 ' );    end     end ;  

>>阅读原文<<