试编写代码如下：
procedure TForm1.Button3Click(Sender: TObject);begin ListView1.SetFocus; ListView1.ItemIndex := 80; //设置选中第80行 ListView1.Selected.MakeVisible(True);end;
