禁用 TListViewItem
Disable a TListViewItem
有谁知道是否可以禁用 FireMonkey TListView 中的单个项目?
因为我正在以编程方式构建列表视图,所以当我的应用程序中发生某些事件时,该项目将不会包含在列表视图中,否则它将被包含。
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;
有谁知道是否可以禁用 FireMonkey TListView 中的单个项目?
因为我正在以编程方式构建列表视图,所以当我的应用程序中发生某些事件时,该项目将不会包含在列表视图中,否则它将被包含。
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;