其他分享
首页 > 其他分享> > TRichEdit怎样新增的内容到最后一行?

TRichEdit怎样新增的内容到最后一行?

作者:互联网

Delphi里使用TRichEdit,使用SetSelTextBuf时可以设置显示的字体格式,但是显示位置是在当前的插入光标后,如果人为改变插入光标的位置,比如在其他位置单,以后再插入的内容位置就没办法控制了。
能不能限制每次新增加的内容都加到末尾?或者用其他的方式实现增加内容也可以,但是要能够控制这个字符串显示的格式,用Lines.Append('');这样是没用的
或者每次编程把插入光标移动最后也行,不过不知道怎么做,哪位说一下?

解决方案 »

    1. procedure TForm1.SpeedButton1Click(Sender: TObject);
      begin
      RichEdit1.SelStart := MaxInt;
      RichEdit1.SelAttributes.Color := Random($FFFFFF);
      RichEdit1.Lines.Add(ColorToString(RichEdit1.SelAttributes.Color));
      end;

       

    2.  

      RichEdit1.Lines.Insert(RichEdit1.Lines.Count,'12109021');

       

    3.  

      如果要接在最后一行字符后面,则可以这样写:
      var
      S:string;
      begin
      S:=RichEdit1.Lines[RichEdit1.Lines.count-1];
      RichEdit1.Lines.Delete(RichEdit1.Lines.count-1);
      self.RichEdit1.Lines.Insert(RichEdit1.Lines.Count,S+'12109021');
      end;

标签:end,新增,Lines,一行,插入,RichEdit1,TRichEdit,12109021,光标
来源: https://www.cnblogs.com/jijm123/p/10455737.html