社区
Delphi
帖子详情
TEdit控件模拟击键问题
symansoft
2000-08-26 04:59:00
现有一TEdit控件Edit1,要求当用户每击一键时自动扩充为指定的字符串.比如,击键"C",则Edit1的内容自动变成"MUSIC",并将光标置于"C"后面,以便接着输入别的字符.望那位高手指教,谢谢!
symansoft,2000.8.26
...全文
116
4
打赏
收藏
TEdit控件模拟击键问题
现有一TEdit控件Edit1,要求当用户每击一键时自动扩充为指定的字符串.比如,击键"C",则Edit1的内容自动变成"MUSIC",并将光标置于"C"后面,以便接着输入别的字符.望那位高手指教,谢谢! symansoft,2000.8.26
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
shylsz
2000-08-29
打赏
举报
回复
edit1.text:=music;
edit1.SelStart:=length(edit1.text);
symansoft
2000-08-28
打赏
举报
回复
给edit1.text赋值的方法恐怕不行,因为edit1中的光标仍处于第一字符的位置,接下来输入的字符将插在前面。如果能将光标调到尾部就好了!
meijg
2000-08-27
打赏
举报
回复
你可以捕获击键,在keypress事件中判断,做个case ,应该只有20几个字符串吧,记者要将form的keypreview属性设为true
if key=ord('C') then //这里判断键值,查一下帮助
edit1.text:='MUSIC';
或者用CASE 语句
case key of
'c':edit1.text:=.....;
'b': edit1.text:=....;
....
sinsky
2000-08-27
打赏
举报
回复
不如用一个加强版的 COMBOBOX了。
Delphi ListBox
模拟
百度搜索下拉框提示效果.rar
Delphi
模拟
百度下拉框搜索提示效果,带提示效果 的ListBox下拉框,如测试运行效果所示,光标锁定的地方,若用户需要输入,则会自动下拉匹配输入的内容,程序可能还需要诸多改进,这只是一个雏形。如果你对Delphi中的...
Delphi 计算器 源码.rar
用Delphi学写的一个简单的数字计算器,
模拟
加减乘除等常规功能,界面方面自以为较普通,编写目的只是为了练习T
edit
控件
以及BitBtn
控件
的一些字体和颜色设置按钮的布局等,相信这些小技巧,对初学Delphi的朋友来说也...
Delphi 7 新概念百例
├─42 将图像从jpg,ico,emf,wmf格式转换为bmp格式 │ └─41 将图像从bmp格式转换为Jpg格式 ├─4第四节 VCL分析 │ ├─40 消除在T
Edit
控件
中按下回车键时的声音 │ ├─39 在StringGrid中设置只读栏 │ ├─38 ...
Delphi开发范例宝典目录
实例057 为T
Edit
控件
添加列表选择框 69 实例058 只允许输入数字的T
Edit
组件 70 2.2 TSpeedButton
控件
应用典型实例 71 实例059 在TSpeedButton按钮中显示图标 71 实例060 折行显示按钮标题 72 2.3 TMemo...
delphi 开发经验技巧宝典源码
0015 以原始风格显示
控件
的滚动条 11 0016 使用快捷键打开对象观察器中的“...”按钮 11 1.5 其他相关应用技巧 11 0017 安装合适的Delphi版本 11 0018 熟练掌握Delphi中的菜单项 12 0019 构成Delphi项目...
Delphi
5,390
社区成员
262,735
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章