TRichEdit怎样新增的内容到最后一行?
作者:互联网
Delphi里使用TRichEdit,使用SetSelTextBuf时可以设置显示的字体格式,但是显示位置是在当前的插入光标后,如果人为改变插入光标的位置,比如在其他位置单,以后再插入的内容位置就没办法控制了。
能不能限制每次新增加的内容都加到末尾?或者用其他的方式实现增加内容也可以,但是要能够控制这个字符串显示的格式,用Lines.Append('');这样是没用的
或者每次编程把插入光标移动最后也行,不过不知道怎么做,哪位说一下?
解决方案 »
标签:end,新增,Lines,一行,插入,RichEdit1,TRichEdit,12109021,光标 来源: https://www.cnblogs.com/jijm123/p/10455737.html
begin
RichEdit1.SelStart := MaxInt;
RichEdit1.SelAttributes.Color := Random($FFFFFF);
RichEdit1.Lines.Add(ColorToString(RichEdit1.SelAttributes.Color));
end;
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;