德尔福 XE4 更新 1 和 Windows 8。
当我将组和项目添加到列表视图时,它们会正确显示。然后,当我清除项目和组并再次添加它们时,什么也没有出现。当然这不是预期的行为?
来自 DFM:
object lv: TListView
Left = 24
Top = 20
Width = 250
Height = 225
Columns = <
item
Caption = 'Model'
Width = 180
end>
GroupView = True
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
end
编码:
procedure TForm1.Button1Click(Sender: TObject);
var
LListGroup: TListGroup;
LListItem: TListItem;
begin
lv.Items.Clear;
lv.Groups.Clear;
LListGroup := lv.Groups.Add;
LListGroup.Header := 'Ford';
LListItem := lv.Items.Add;
LListItem.Caption := 'Escape';
LListItem.GroupID := LListGroup.ID;
LListItem := lv.Items.Add;
LListItem.Caption := 'F150';
LListItem.GroupID := LListGroup.ID;
OutputDebugString(PChar(Format('lv.Groups.Count=%d', [lv.Groups.Count])));
end;
我第一次单击该按钮时,项目会出现并且它们被分组。第二次,列表视图为空白。如果我注释掉清除组的行,那么它可以工作,但是组的数量,所有这些都未使用,只有一个,每次都会增加 1。