请问如何通过Delphi编程，做到一个输入框中，只能输入汉字，而不能输入数字或其他字符？

Posted 2023-03-19

参考技术A 更加准确地说是应该
在Edit的OnKeyPress事件中
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Ord(Key)=8 then exit;
if (Ord(Key)<127) or ((Length(Edit1.Text)>0) and (Ord(Edit1.Text[1])>127)) then
Key:=#0;
end;写入以上代码即可。 参考技术B 在Edit的OnKeyPress事件中
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Ord(Key)<127) or (Ord(Edit1.Text[1])>127) then
Key:=#0;
end;本回答被提问者采纳