delphi richedit TopIndex



var
  ChatItem: pTChatMsgItem;

if frmDlg.rtfRTurnplate.Count >= 100 then begin
    frmDlg.rtfRTurnplate.DelItem(0);
  end;
  frmDlg.rtfRTurnplate.TopIndex := frmDlg.rtfRTurnplate.Count -9; //置顶最新加入的行信息

  OffsetX := 0;
  New(ChatItem);
  if Pos('减少',sText) > 0 then ChatItem.FColor := clWhite
  else ChatItem.FColor := clYellow;
  ChatItem.sText := sText;
  ChatItem.FCommand := 0;
  ChatItem.FCommandStr := '';
  ChatItem.OffsetX := 0;
  ChatItem.btLineFlag := 1;
  ChatItem.sHint := '';
  ChatItem.btFiltFlag := $FF;
  frmDlg.rtfRTurnplate.AddItem(ChatItem, AWidth);

TopIndex     赋值为1则scrolball控件为最底端，从负慢慢增大则scrolball控件按钮拖下滑动显示均匀