Question

怎么写delphi edit控件的输入约束啊?

一个输入只能是数字 否则报错 另一个是只能输入string 否则报错 哪位好心的哥哥告诉我啊 急哦~~~

Answer 1

在KeyPress事件中处理
这是处理只能为数字情况
if key<>#8 then
begin
if(key<'0') or (key >'9') then
begin
key :=#0;
showmessage('只能输入数字');
end;
end;
这是处理只能为字母情况
if key<>#8 then
begin
if not(((key<='z') and (key>='a')) or ((key<='Z') and (key>='A'))) then
begin
key :=#0;
showmessage('只能输入字母');
end;
end;