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;
好的代码像粥一样,都是用时间熬出来的