怎样限制Edit只能输入数字（包括有小数点的数字）
怎样限制Edit只能输入数字（包括有小数点的数字） Frewin（frewin） Delphi VCL组件开发及应用 - delphi2007.net
http://www.delphi2007.net/DelphiVCL/html/delphi_2004010315571551964.html
procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9',#8,#13] = False then
begin
Application.MessageBox('只能输入数字! ','系统提示',MB_OK+MB_ICONWARNING);
Edit1.SetFocus;
Abort;
end;
end;
//至于小数点，可以自己加控制
===============================
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in [#48..#57,#46]) then
Key := #0;
end;
==============================
如果用键值去控制麻烦，不仅仅要看是不是数字和点，还要看是不是已经有了点，所以这样吧
try
strtofloat(edit1.text);
except
edit1.text:='0';
end
==================
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','.',#8]) then
key:=#0
end;
========================================
function CheckInputNum(AStr: string; var Key: Char): Boolean;
const NumberSet = ['0' .. '9', char(#8), char(#13), char(#46), '.', '-'];
begin
if not (Key in NumberSet) then Key := #0;
if (Key = '.') and ((Length(AStr) = 0) or (Pos('.', AStr) > 0)) then
Key := #0;
if (Length(AStr) = 1) and (AStr[1] = '0') and (Key = '0') then Key := #0;
Result := Key <> #0
end;
你可以在OnKeyPress中调用
============================================
在EDIT 的ONEXIT（当这个EDIT失去焦点的时候）写几句话
try
strtofloat(edit.text);
except
showmessage('error');
edit.setfocus;
end;
还有就是在EDIT的ONKEYPRESS里添加对KEY的判断
if not (key in ['0'..'9','.',#8,#13]) then
key:=0;
上面这个写法有问题的,就是无法控制小数点的位置和个数.
所以在EDIT失去焦点的时候判断一下是很有必要的.除非你把错误的可能都排除了,禁止EDIT粘贴之类的,老问题了啊.期待高手写个这样EDIT的控件吧.呵呵,最好是免费的哦
