Delphi里用ListView实现PDF左边页面选择功能

01】拖一个ListView到页面上，双击它

 02】ViewStyle为vsReport

 03]增加页码

var
  item: TListItem;  i:integer;
begin
ListView1.Items.Clear;
  for I := 0 to strtoint( edit1.text)-1 do   begin
  item := ListView1.Items.Add;
  item.Caption :=  IntToStr(i+1);
  end;
end;

 03】点击某项时的动作

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;  Selected: Boolean);
begin
   if Selected then  button1.Caption:=  Item.Caption
end;

 04】listview1 跳转到某行

var i:integer;
begin
i:=strtoint(edit2.Text)-1;
  ListView1.Items[i].Focused := true; //定位到索引为edit2的行
  ListView1.Items[i].Selected := true;
  ListView1.Items[i].MakeVisible(false);
end;

 05]实现斑马线显示

 ownerDraw设为false