delphi - 自动调整 TListView 的列大小

Question

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

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

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

我将 ViewStyle 设置为 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;