在Delphi中使用TRichEdit滾動問題

Question

我正在向TRichEdit中添加行如何關注剛剛添加的行？

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

編輯

我正是在RichEdit顯示的底線只是添加了什麼和所有其他行向上滾動

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; 

如果這不是你想要的，請看到我的評論上方，澄清你的問題。

Answer 2

你可以試試這個

選項1）當循環完成時設置光標

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

RichEdit.SetFocus; 
RichEdit.SelStart := RichEdit.Perform(EM_LINEINDEX, RichEdit.Lines.Count-1, 0) ; 

選項2）設置光標r while the loop is executed

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

RichEdit.SelStart := RichEdit.Perform(EM_LINEINDEX, RichEdit.Lines.Count-1, 0) ; 

再見。