如何通过程序控制RichEdit的ScrollBar?(30分)

  • 主题发起人 主题发起人 Dale46
  • 开始时间 开始时间
D

Dale46

Unregistered / Unconfirmed
GUEST, unregistred user!
程序通过RichEdit1.Lines.Append添加信息到RichEdit1中
如何通过程序控制RichEdit的ScrollBar? 使最新添加的行始终显示在RichEdit1中.
 
RichEdit1.SelStart := Length(RichEdit1.Lines.Text);
 
找到答案了
//auto scrool
RichEdit1.SelLength := 0;
currentline := Richedit1.Perform(EM_LINEFROMCHAR, Richedit1.SelStart, 0 );
Richedit1.SelStart := richEdit1.perform( EM_LINEINDEX, currentline+1, 0 );
RichEdit1.Perform( EM_SCROLLCARET, 0, 0 );
 
接受答案了.
 
后退
顶部