delphi - RichEdit の最後まで自動スクロールする方法は?

Question

以前は TRichEdit を使用する必要はなく、常に TMemo を使用していました。

TMemo のようにテキストを追加するときに、RichEdit が最後まで自動スクロールすることを望みます。データを追加した後の外観を確認します。

ご覧のとおり、スクロール バーは上部に残っていますが、テキストを追加したときにスクロール バーを下部に残しておいてください。

私は解決策を「ググった」が、信頼できる良いものを見つけることができなかった.

Answer 1

このコードを試してください

RichEdit1.SetFocus;
RichEdit1.SelStart := RichEdit1.GetTextLen;
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);

Answer 2

つまり、カーソルを最後に置くか、コードを送信して下にスクロールする必要があります。

やってみました

Richedit1.SelStart :=RichEdit1.GetTextLength();
SendMessage(RichEdit1.handle, EM_SCROLLCARET,0,0);