社区
Delphi
帖子详情
我是delphi的初学者,请各位帮忙,Tedit控件,怎样控制它的输入值,只输入数字或只输入英数字,谢谢
maleswallow
2003-09-11 11:08:05
我是delphi的初学者,请各位帮忙,Tedit控件,怎样控制它的输入值,只输入数字或只输入英数字,谢谢
...全文
69
14
打赏
收藏
我是delphi的初学者,请各位帮忙,Tedit控件,怎样控制它的输入值,只输入数字或只输入英数字,谢谢
我是delphi的初学者,请各位帮忙,Tedit控件,怎样控制它的输入值,只输入数字或只输入英数字,谢谢
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
14 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
伯猿虫
2003-09-11
打赏
举报
回复
判断数字
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;
俗人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
WWWWA
2003-09-11
打赏
举报
回复
在EDIT的ON CHANGE事件中
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
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;
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;
Dephiuser
2003-09-11
打赏
举报
回复
英数字?
ekin
2003-09-11
打赏
举报
回复
回答的差不多了吗!
holy520
2003-09-11
打赏
举报
回复
请问
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;
将[]中的字符更改成你要的就可以了
最简单的MP3播放器源码
适合
Delphi
初学者
。所用
控件
包括: TDriveComboBox TDirectoryListBox TFilterComboBox TFileListBox TMediaPlayer T
edit
TTrackBar
关于
Delphi
:
Delphi
自定义
控件
开发
Delphi
控件
开发浅入深出(一) 有人说过“不会开发
控件
的
Delphi
程序员不是真正的程序员”。...接触
Delphi
已经一年多了,从当初对着
Delphi
组件面板上上百个
控件
不知所措,到现在已经可以根据需要开..
用
Delphi
实现
输入
法转换
在平时的计算机操作中,中文
输入
是不可避免的。使用者可能喜欢不同的中文...
Delphi
中只有少数
控件
如T
Edit
支持IME,而且该功能不强,不能在运行时更改
输入
法。 笔者通过实践和摸索,查找了相
在
Delphi
中编程实现中文
输入
的功能
Delphi
被称为第四代编程语言,它具有简单、高效、功能强大的特点,它一直为广大程序设计员所青睐。 一、背景介绍 大家在使用计算机操作的时候,一般情况下
输入
中文似乎就是一件不可避免的事情了。不同的...
delphi
之IOCP学习(一)
困扰已久的网络通信(IOCP:完成端口),今天终于揭开她的神秘面纱了,之前百度N久还是未能理解IOCP,网络上好多博文都没有贴出源码,
初学者
很难正在理解IOCP并自己写出通信例子 ,经过努力,今天自己终于做出了...
Delphi
5,392
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章