edit控件只只允许输入数字和','、'-'

Question

如何实现呢？

Answer 1

procedure TForm1.TransEditKeyPress(Sender: TObject; var Key: Char);
begin
  if (key<#48)and (key<>'.') or (key>#57) then  
     key:=#0;
end;

Answer 2

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

Answer 3

在eidt的change事件里写
if (sender as tedit).text<>'' then
    try
      strtofloat((sender as tedit).text)
    except
      //showmessage('您输入了非法字符！');
      (sender as Tedit).text:=copy((sender as Tedit).text,1,length((sender as Tedit).text)-1);
      (sender as Tedit).selstart:=length((sender as Tedit).text);
    end;

Answer 4

在Edit的KeyPress中写：
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Not (Key in [',','-']) then
    Key:=#0;
end;

Answer 5

www.ifrance.com/man8888/myco.zip
参考我做的控件包里的TDigitEdit控件代码。
无论什么方法都无法输入指定字符（除非发消息）
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]