5

Delphi XE4 Update 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;

ボタンを初めてクリックすると、アイテムが表示され、グループ化されます。2 回目は、リスト ビューが空白です。グループをクリアする行をコメントアウトすると機能しますが、グループの数は 1 つを除いてすべて未使用で、毎回 1 ずつ増えます。

4

1 に答える 1

7

コードの問題は、 のプロパティをのIDプロパティに渡すことであり、 のプロパティを使用する必要があります。TCollectionItemGroupIDTListItemGroupIDTListGroup

したがって、この行を変更します

  LListItem.GroupID := LListGroup.ID; //here you are passing a wrong id for the group

に

  LListItem.GroupID := LListGroup.GroupID; //This is a valid assignment for the GroupID property
于 2014-03-12T18:54:24.493 に答える