有时候我们需要将一个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;