Question

我需要在添加一行后将RichEdit滚动到最后。我有一个单独的RichEdit形式，我不想得到任何关注。我经常尝试建议解决方案：

RichEdit.Lines.Add(someText);
RichEdit.SelStart:=RichEdit.GetTextLen;
SendMessage(RichEdit.handle, EM_SCROLLCARET, 0, 0);

但这对我不起作用。但是，当我在使用SendMessage调用RichEdit.SetFocus;之前关注RichEdit时，它可以正常工作。但是，这会破坏我对该应用程序的其他需求。

我正在使用XE2。感谢

Answer 1

这就是我的所作所为：

SendMessage(RichEdit.Handle, WM_VSCROLL, SB_BOTTOM, 0);

Answer 2

请参阅FrançoisGaillard撰写的这篇博文：richedit-on-scrolling-strike。

显然是一个错误，这是解决方法：

procedure ScrollToEnd(ARichEdit: TRichEdit);
var
  isSelectionHidden: Boolean;
begin
  with ARichEdit do
  begin
    SelStart := Perform( EM_LINEINDEX, Lines.Count, 0);//Set caret at end
    isSelectionHidden := HideSelection;
    try
      HideSelection := False;
      Perform( EM_SCROLLCARET, 0, 0);  // Scroll to caret
    finally
      HideSelection := isSelectionHidden;
    end;
  end;
end;

在没有焦点的情况下滚动RichEdit

2 个答案: