TShellListView Lazarus

Question

是否可以将ShellListView中的项目设置为visible=false？我想过像ShelLlistView.Items.visible(false)这样的东西，但它并不存在，我也没有其他解决方案的想法，所以我希望有人能帮助我解决这个问题。

我还不能为你发布任何代码，因为我还没有任何ShellListView，但我希望你能给我一些建议，它如何工作。

Answer 1

这是不可能的，因为TShellListView中显示的ListItem%s没有Visible属性。然而，根据彼得下面(TeamB)的说法，你可以通过销毁一个物品来有效地“隐藏”它。请参阅http://www.delphigroups.info/2/67/290279.html

当然，如果您希望“取消隐藏”以这种方式隐藏的项，您将需要创建并添加一个具有相同Caption的新节点，等等。

使用标准的Lazarus TShellListView，我可以很好地使用以下代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  Item : TListItem;
begin
  Item := ShellListView1.Items[0];
  Caption := Item.Caption;
  Item.Free;
end;

并移除列表中的第一项。

以下操作将删除ShellListView中的所有项。THe downto是为了说明Count值在循环的每次迭代中都会减少这一事实。

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := ShellListView1.Items.Count - 1 downto 0 do
    ShellListView1.Items[i].Free;
end;