|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2016/10/25 14:04:16 |
标题: |
|
加入我的收藏 |
楼主: |
小弟刚开始学习,发现TEDIT控件比如EDIT1中输入一段文字,光标离开后再点进去直接添加文字,本想在那段文字后面添加的,可是它却覆盖了之前输入的文字,请教一下大家是不是有什么属性可以控制呢?还有手机端在里面输入文字,keydown事件起不到效果,先谢谢大家了!
berlin update1版本
----------------------------------------------
- |
作者: |
|
2016/10/25 14:38:49 |
1楼: |
https://quality.embarcadero.com/browse/RSP-14928 去投票吧。
----------------------------------------------
(C)(P)Flying Wang
|
作者: |
bdl1 (bdl1) |
▲▲▲▲▲ |
-
|
普通会员 |
|
2016/10/25 22:00:39 |
2楼: |
这个必须投!
----------------------------------------------
-我的博客
|
作者: |
|
2016/10/26 9:13:35 |
3楼: |
你们的也是这样啊?我还以为环境有问题或者控件属性使用问题呢。 谢谢 @wang_80919 @bdl1
----------------------------------------------
-
|
作者: |
|
2016/10/26 13:32:51 |
4楼: |
不用改源代码, 使用 procedure TForm1.Edit3Click(Sender: TObject); begin TEdit(Sender).CaretPosition:=1; TEdit(Sender).CaretPosition:=Length(TEdit(Sender).Text)+1; end; 临时解决了,貌似没什么副作用
----------------------------------------------
-
|
作者: |
|
2016/10/26 16:47:54 |
5楼: |
前面有些问题 写一个函数 procedure TForm1.SetCaretPosition(Sender: TObject); var position:integer; begin position:=TEdit(Sender).CaretPosition; TEdit(Sender).CaretPosition:=0; TEdit(Sender).CaretPosition:=position; end;
然后在TEDIT单击事件加入如下代码: SetCaretPosition(Sender);
----------------------------------------------
-
|
|