禁用TListViewItem

6String_Coder

有谁知道是否有可能禁用FireMonkey TListView中的单个项目?

6String_Coder

因为我正在以编程方式构建列表视图,所以当我的应用程序中发生某些事件时,该项目将不会包含在列表视图中,否则它将被包含在内。

procedure Tform1.BuildListView;
var LItem : TListViewItem;
begin
  ListView1.BeginUpdate;
  try
    ListView1.ClearItems;

  if (SOMETHING HAPPENS) then
  begin
    LItem := ListView1.Items.Add;
    LItem.Text := 'Item 1';
    LItem.Tag := 0;
  end;

  LItem := ListView1.Items.Add;
  LItem.Text := 'Item 2';
  LItem.Tag := 1;

  LItem := ListView1.Items.Add;
  LItem.Text := 'Item 3';
  LItem.Tag := 2;

  LItem := ListView1.Items.Add;
  LItem.Text := 'Item 4';
  LItem.Tag := 3;

  finally
    ListView1.EndUpdate;
  end;
end;

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章