object pascal (delphi)怎么表示选取一定范围
在delphi7里,对form的组件进行事件(event)操作比如:我想确定[A-Z]和[a-z]的范围,排除其他输入的字符。怎么选定这个[A-Z]和[a-z]的范围呢?...
在delphi 7里,对form的组件进行事件(event)操作
比如:
我想确定[A-Z]和[a-z]的范围,排除其他输入的字符。
怎么选定这个[A-Z]和[a-z]的范围呢?
不能像C/C++中那样,用一个范围表示吗?(不是这样一个一个的键入)
比如C表示就是用ASCII码,
{
scanf("%d",a);
if(32<a&&a<72)
}
这样的 展开
比如:
我想确定[A-Z]和[a-z]的范围,排除其他输入的字符。
怎么选定这个[A-Z]和[a-z]的范围呢?
不能像C/C++中那样,用一个范围表示吗?(不是这样一个一个的键入)
比如C表示就是用ASCII码,
{
scanf("%d",a);
if(32<a&&a<72)
}
这样的 展开
展开全部
在编辑组件如edit组件的KeyPress事件中写上bngin ...end之间的代码,就可以了,在该组件的键按下事件也可写,都能起到只输入英文字符的作用
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['A'..'Z','a'..'z'])then
begin
key:=#0;
end;
end
这样就OK乐,支持这么回答的人!
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['A'..'Z','a'..'z'])then
begin
key:=#0;
end;
end
这样就OK乐,支持这么回答的人!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在编辑组件如edit组件的KeyPress事件中写上bngin ...end之间的代码,就可以了,在该组件的键按下事件也可写,都能起到只输入英文字符的作用
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['A'..'Z','a'..'z'])then
begin
key:=#0;
end;
end
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['A'..'Z','a'..'z'])then
begin
key:=#0;
end;
end
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
OnKeypress事件:
if NOT (Key in ['A'..'Z','a'..'z']) then
Key:=#0;
if NOT (Key in ['A'..'Z','a'..'z']) then
Key:=#0;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询