5

まず、これは可能ですか？

私には2つの問題があります。最初は、実行時に作成するときにグループをTListViewに表示できないことです。私は次のコードを使用しています：

lg := lvResults.Groups.Add;
lg.Header := 'New Starters';
lg.GroupID := 0;

2つ目は、デザイン時にグループを作成した場合でも（フォームデザイナーで表示できます）、実行時にグループが存在しない場合でも、データを更新して独自のアイテムを追加する前でも...

追加：以下の回答がバージンプロジェクトで機能することを確認しました。しかし、私が使いたいプロジェクトでは失敗します！TListViewをパレットからの新しいものに置き換えましたが、喜びはありません。リストビューはtpagecontrolにあります

4

1 に答える 1

7

以下のコードは、表示されたグループになります。GroupView設定するのを忘れているのではないでしょうTrueか。

procedure TMyForm.FormCreate(Sender: TObject);
var
  Group: TListGroup;
  Item: TListItem;
begin
  ListView1.ViewStyle := vsReport;
  ListView1.GroupView := True;
  ListView1.Columns.Add.Caption := 'My column';
  Group := ListView1.Groups.Add;
  Group.Header := 'My header';
  Item := ListView1.Items.Add;
  Item.GroupID := Group.GroupID;
  Item.Caption := 'My item';

Delphiのドキュメントにコード例があります。

于 2011-06-23T10:23:51.940 に答える