TEdit控件模拟击键问题

symansoft 2000-08-26 04:59:00


现有一TEdit控件Edit1,要求当用户每击一键时自动扩充为指定的字符串.比如,击键"C",则Edit1的内容自动变成"MUSIC",并将光标置于"C"后面,以便接着输入别的字符.望那位高手指教,谢谢!

symansoft,2000.8.26
...全文
106 4 打赏 收藏 转发到动态 举报
写回复
用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了。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧