edit输入内容限制问题?在线给分。

Question

EDIT中只能是数字，字符，文字?

Answer 1

在edit的onkeypress事件中添加
 if not (key in ['0'..'9', #8]) then
    key := #0;
这样使edit只接受数字。其它只能输入字符和这个差不多。

Answer 2

//数字
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not (Key in [$30..$39]) then
  begin
    Key := 0;
  end;
end;
字符类似, 可以填写什么就把[]中的改为其键值

Answer 3

不想寫太多代碼的話，就用MarkEditelse同上

Answer 4

EDIT中本身就只能是数字，字符，文字.其中包括可见的秋不可见的.

Answer 5

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

Answer 6

TMaskEdit里能自己设置吗？
如果楼主是要输入123.456呢？
这个数字就不行了吧？