TMemo的光标控制(100分)

  • 主题发起人 主题发起人 yuwengrong
  • 开始时间 开始时间
我用TMemo作为显示信息用,属性ReadOnly设为True,当显示字符时光标总是
在编辑框首,如何将光标跟随显示字符走。
 
当你添加文本之后,记住用:
memo1.SelStart:=length(memo1.text);
设置光标的位置
 
和CAKK的思路一样,只要控制memo1.selstart的值随时跟着你当前显示的字符移动
就可以了,当编辑框失去焦点时可以执行:MEMO1.SETFOCUS;
 
同cAkk,
Memo1.SelStart:=Length(Memo1.Text);
Memo1.SelLength:=0;
Memo1.SelText:='test';//your message text
PostMessage(Memo1.Handle,EM_ScrollCaret,0,0);

这样,不管Memo1是否Focused,光标丢只动移动
{B-)
 
在OnChange事件中加上
memo1.SelStart:=length(memo1.text);
 
时间太久,强制结束。 wjiachun
 
后退
顶部