delphi *

同意359552813的意见。不过还有个问题，这样做法虽然可以屏蔽从键盘输入的数字，但是如果用鼠标右键的粘贴功能把非数字的字符粘贴进去就失效了。
应该该成这样更好些。
procedure TForm1.Edit1Change(Sender: TObject);
var
i:integer;
begin
with Edit1 do
begin
for i:=1 to Length(Text) do
begin
if not(Text[i] in ['0'..'9',#8]) then
begin
ShowMessage('请输入数字!');
Text:=Copy(Text,1,i-1);
exit;
end;
end;
end;
end;

你笨蛋啊
使用MaskEdit组件输入的就都是*

修改组件的OnKeyDown()事件

begin

if (key<='0') OR (key>='9') then begin
mask.text='';
showmessage('只能输入数字');
end;
if(length(mask.text)>10) begin
showmessage('输入位数大于10');
end;
end;

先说你用来做密码输入的edit，把edit的PasswordChar属性改成 * ，这样输入什么都是显示*，（如果设置成#，输入什么就显示#。），然后再说一下你那个只允许输入数字的那个edit，创建edit的Onkeypress事件，写代码：
procedure TForm1.edit1keypress(Sender: TObject; var Ke