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;