delphi - TListViewの列の自動サイズ設定

Question

TListViewのすべての列のサイズを自動化したい。以下のコードを使用していますが、何もしていません。

ListView1.Columns.Add.Caption := 'Field Name';
ListView1.Columns.Items[0].Autosize := True;

DelphiでTListViewの列のサイズを自動化するにはどうすればよいですか。

設定しましたViewStyle to vsReport。

前もって感謝します

Answer 1

答えがわかりました。列幅を に設定するLVSCW_AUTOSIZEかLVSCW_AUTOSIZE_USEHEADER、問題を解決しました。

LVSCW_AUTOSIZE設定を使用して、列ヘッダーを列内の最大のサブアイテム テキストのサイズに設定します。

LVSCW_AUTOSIZE_USEHEADER列ヘッダーを列ヘッダーのテキストのサイズに設定する設定。

uses CommCtrl;

ListView1.Columns[0].Width := LVSCW_AUTOSIZE or LVSCW_AUTOSIZE_USEHEADER;

Answer 2

これを試して：

// Assign vsReport;    
ListView1.ViewStyle := vsReport; 

  { // Add your items  }

// Assign vsList again;
ListView1.ViewStyle := vsList;