在Delphi中使用TRichEdit滚动问题

Question

我正在为TRichEdit添加行如何将注意力集中在刚刚添加的行上？

For Idx := 1 to 1000 do
   RichEdit.Lines.add(IntToStr(Idx));

编辑

我只是丰富的底线显示刚刚添加的内容和所有其他行向上滚动

Answer 1

如果您只想滚动到richedit的末尾,这应该可以工作:

For Idx := 1 to 1000 do
begin
  RichEdit.Lines.add(IntToStr(Idx));
  RichEdit.SelStart := RichEdit.GetTextLen;
  SendMessage(RichEdit.handle, EM_SCROLLCARET,0,0);
end;

如果这不是您想要的,请参阅上面的评论并澄清您的问题.