社区
Delphi
帖子详情
我是delphi的初学者,请各位帮忙,Tedit控件,怎样控制它的输入值,只输入数字或只输入英数字,谢谢
maleswallow
2003-09-11 11:08:05
我是delphi的初学者,请各位帮忙,Tedit控件,怎样控制它的输入值,只输入数字或只输入英数字,谢谢
...全文
66
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
初学者
。所用
控件
包括:TDriveComboBoxTDirectoryListBoxTFilterComboBoxTFileListBoxTMediaPlayerT
edit
TTrackBar
关于
Delphi
:
Delphi
自定义
控件
开发
转自:微点阅读https://www.weidianyuedu.com/content/2517738239233.html
Delphi
控件
开发浅入深出(一) 有人说过“不会开发
控件
的
Delphi
程序员不是真正的程序员”。
Delphi
正是由于高度的可扩展性和大量的第三方
控件
的支持才能吸引无数程序员挑剔的目光。即使是由于工作需要使用其他开发工具的开发者也常常怀念和
Delphi
度过的日日夜夜。接触
Delphi
已经一年多了,从当初对着
Delphi
组件面板上上百个
控件
不知所措,到现在已经可以根据需要开..
用
Delphi
实现
输入
法转换
在平时的计算机操作中,中文
输入
是不可避免的。使用者可能喜欢不同的中文
输入
法(inputmethod
edit
or,简称IME),这就不得 不经常点击任务栏中的中文图标或用CTRL+Space,CTRL+Shift热键切换,
初学者
用起来很不方便。针对这一问题,可以在开发软件时,在程序 中设置用户喜欢的中文
输入
法,方便用户的使用。
Delphi
中只有少数
控件
如T
Edit
支持IME,而且该功能不强,不能在运行时更改
输入
法。
笔者通过实践和摸索,查找了相
在
Delphi
中编程实现中文
输入
的功能
Borland
Delphi
是著名的Borland(现在已和Inprise合并)公司开发的可视化软件开发工具。
Delphi
被称为第四代编程语言,它具有简单、高效、功能强大的特点,它一直为广大程序设计员所青睐。 一、背景介绍 大家在使用计算机操作的时候,一般情况下
输入
中文似乎就是一件不可避免的事情了。不同的使用者可能就喜欢不一样的中文
输入
法(即inputmethod
edit
or,简
delphi
之IOCP学习(一)
delphi
之IOCP学习(一) 困扰已久的网络通信(IOCP:完成端口),今天终于揭开她的神秘面纱了,之前百度N久还是未能理解IOCP,网络上好多博文都没有贴出源码,
初学者
很难正在理解IOCP并自己写出通信例子 ,经过努力,今天自己终于做出了简单的测试程序,下面贴出源码,水平有限,难免有错,希望不要误人子弟。 1、Svr主窗体 ? 1 2 3
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章