delphi richedit TopIndex

最新推荐文章于 2024-07-12 09:21:34 发布

luo809976897

最新推荐文章于 2024-07-12 09:21:34 发布

阅读量441

点赞数

本文链接：https://blog.csdn.net/luo809976897/article/details/49642639

版权

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