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控件按钮拖下滑动显示均匀