请问，如何格式化Edit1输入内容？

[馮強]

比如，我要求输入数字，不能有字符，该如何写呢？在VFP中，用pict '9999.99'就可搞定。Delphi中有简便的方法吗？

[luoweicaisd]

procedure TfrmCbywcl.edtDnhKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', char(VK_BACK),
char(VK_RETURN), char(VK_LEFT), char(VK_UP), char(VK_RIGHT), char(VK_DOWN)]) then
key := #0;
end;

[mikewolf_gkd]

在keydownpress事件中加上：
if key<'0' and key>'9' then
key:=chr(0);

[mikewolf_gkd]

在keydownpress事件中加上：
if key<'0' and key>'9' then
key:=chr(0);

[馮強]

用KeyPress事件可以对每个字符进行测试，但997.98.7显然是不合法的，如何来判定呢？也要编程吗？

[luoweicaisd]

try
strtofloat()
except
//出错
end;

[馮強]

谢谢笑三少，但这样写了以后，按回车就不能跳到下一个输入框了。
请教该如何改呢？
if key=Char(VK_Return) then .....该怎么写？

才转到Delphi，不要嫌烦啊。:)

[馮強]

谢谢笑三少，但这样写了以后，按回车就不能跳到下一个输入框了。
请教该如何改呢？
if key=Char(VK_Return) then .....该怎么写？

才转到Delphi，不要嫌烦啊。:)

[9527]

SelectNext(ActiveControl,True,True);