5,388
社区成员
发帖
与我相关
我的任务
分享我是delphi的初学者，请各位帮忙，Tedit控件，怎样控制它的输入值，只输入数字或只输入英数字，谢谢
我是delphi的初学者，请各位帮忙，Tedit控件，怎样控制它的输入值，只输入数字或只输入英数字，谢谢
...全文
请发表友善的回复…
发表回复
伯猿虫 2003-09-11
- 打赏
- 举报
判断数字
if ((Key>=#48) and (Key<=#57)) or (Key='.') or (Key=#8) then
TEdit(Sender).ReadOnly:=False
else
TEdit(Sender).ReadOnly:=True;
字母类似
if ((Key>=#48) and (Key<=#57)) or (Key='.') or (Key=#8) then
TEdit(Sender).ReadOnly:=False
else
TEdit(Sender).ReadOnly:=True;
字母类似
killme2008 2003-09-11
- 打赏
- 举报
学习
IORILI 2003-09-11
- 打赏
- 举报
同上
SOFTWATER 2003-09-11
- 打赏
- 举报
在 onKeyPress事件中
只能输入数字:
if not (key in ['0'..'9',#8] )then
key:=#0;
只能输入字母
if not (key in [,'a'..'z','A'..'Z',#8] )then
key:=#0;
只能输入数字:
if not (key in ['0'..'9',#8] )then
key:=#0;
只能输入字母
if not (key in [,'a'..'z','A'..'Z',#8] )then
key:=#0;
俗人1979 2003-09-11
- 打赏
- 举报
if not (key in ['0'..'9','a'..'z','A'..'Z',#8] )then
key:=#0;
WWWWA 2003-09-11
- 打赏
- 举报
在EDIT的ON CHANGE事件中
IF NOT (KEY IN['0'..'9','a'..'z','A'..'Z',#8]) THEN KEY:=#0
IF NOT (KEY IN['0'..'9','a'..'z','A'..'Z',#8]) THEN KEY:=#0
WWWWA 2003-09-11
- 打赏
- 举报
在EDIT的ON CHANGE事件中
IF NOT (KEY IN['0'..'9','a'..'z','A'..'Z',#8]) THEN KEY:=#0
IF NOT (KEY IN['0'..'9','a'..'z','A'..'Z',#8]) THEN KEY:=#0
WWWWA 2003-09-11
- 打赏
- 举报
在EDIT的ON CHANGE事件中
IF NOT (KEY IN['0'..'9','a'..'z','A'..'Z',#8]) THEN KEY:=#0
IF NOT (KEY IN['0'..'9','a'..'z','A'..'Z',#8]) THEN KEY:=#0
ysycrazy 2003-09-11
- 打赏
- 举报
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','a'..'z','A'..'Z',#8] )then
key:=#0;
end;
begin
if not (key in ['0'..'9','a'..'z','A'..'Z',#8] )then
key:=#0;
end;
hongqi162 2003-09-11
- 打赏
- 举报
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then /*相对应的ASCII码*/
application.MessageBox('','',mb_ok);
end;
Shift: TShiftState);
begin
if key=13 then /*相对应的ASCII码*/
application.MessageBox('','',mb_ok);
end;
Dephiuser 2003-09-11
- 打赏
- 举报
英数字?
ekin 2003-09-11
- 打赏
- 举报
回答的差不多了吗！
holy520 2003-09-11
- 打赏
- 举报
请问
if not (key in ['0'..'9','a'..'z','A'..'Z',#8] )then
小数点是用#什么代表呀？
if not (key in ['0'..'9','a'..'z','A'..'Z',#8] )then
小数点是用#什么代表呀？
yown 2003-09-11
- 打赏
- 举报
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','a'..'z'] )then
key:=#0;
end;
将[]中的字符更改成你要的就可以了
begin
if not (key in ['0'..'9','a'..'z'] )then
key:=#0;
end;
将[]中的字符更改成你要的就可以了
