Delphi listview 让焦点始终在新输出的焦点上，并自动滚动

有时候我们需要将一个listview 作为一个状态栏，将软件运行的信息输出到这个listview 中，

这就要求自动滚动一下。

 

在listview 的 onchange 事件中加入代码

procedure TMainForm.lv_ULinfoChange(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
if Change in [ctText] then
  begin
  listview1.Selected :=lv_listview1.Items['你需要定位的行数'];
  lv_listview1.Selected.MakeVisible(true);
  end;
end;