listviewer 未在 onshow 中更改 select

Question

如何更改列表视图中的选定项目...

这是我的代码示例：

 for c := 0  to Form1.LV1.Items.count -1  do
    begin
      if  (form1.lv1.Items[c].SubItems.Objects[3] as TTabSheet).TabIndex = 
        pgc1.ActivePageIndex then
      begin
        form1.lv1.Items[c].Selected:= True;
      end;
    end;

Answer 1

我创建了一个带有列表视图的简单应用程序，将其设置为报告模式，添加了一些项目，并添加了这个 OnShow 事件：

procedure TForm1.FormShow(Sender: TObject);
begin
  ListView1.Items[1].Selected := True;
end;

确实选择了指定的项目。

我由此得出的结论是 Selected 属性可以从 OnShow 事件中使用。因此，如果您的程序没有导致设置列表视图选择，则似乎是：

问题中的代码根本不是运行，或者
代码是运行，但是if语句条件从来不是True.

下一步是调试程序。使用您喜欢的调试技术在程序执行时检查它。交互式调试器将是一个不错的选择。

listviewer 未在 onshow 中更改 select

The listviewer not change select in onshow

delphi

items

delphi-xe5