自动调整TListView的列

Question

我想自动调整TListView中的所有列的大小。我正在使用下面的代码，但它没有做任何事情。

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

如何在Delphi中自动调整TListView的列。

我设置了ViewStyle to vsReport。

提前致谢

Answer 1

我得到了答案。将列宽设置为-1或-2解决了问题。

使用-1设置将列标题设置为列中最大子项文本的大小

和-2设置，将列标题设置为列标题中文本的大小。

ListView1.Columns[0].Width := -1 or -2;

Answer 2

试试这个：

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

  { // Add your items  }

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