DELPHI 中如何让edit1.text只能输入汉字
procedureTForm1.Edit1KeyPress(Sender:TObject;varKey:Char);beginif(Keyin['0'..'9','A'....
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['0'..'9', 'A'..'Z', 'a'..'z', #8, #46]) then
Key := #0;
end;上述代码还可以输入 空格！ 如何取消空格的输入！#8, #46是代表什么？ 展开
begin
if (Key in ['0'..'9', 'A'..'Z', 'a'..'z', #8, #46]) then
Key := #0;
end;上述代码还可以输入 空格！ 如何取消空格的输入！#8, #46是代表什么？ 展开
2个回答
展开全部
DELPHI 中如何让edit1.text只能输入数字和字母
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', 'A'..'Z', 'a'..'z', #8, #46]) then
Key := #0;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', 'A'..'Z', 'a'..'z', #8, #46]) then
Key := #0;
end;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
