Автосазовые столбцы для TlistView

Question

Я хочу автоматически размещать все столбцы в TlistView. Я использую ниже код, но это не делает ничего.

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

Как я могу автоматически разместить столбцы TliStView в Delphi.

Я устанавливаю ViewStyle to vsReport.

заранее спасибо

Answer 1

Я получил ответ. Установка ширины столбца до -1 или -2 решила проблему.

Используйте настройку -1, чтобы установить заголовок столбца до размера крупнейшего текста субтема в столбце,

и настройка A -2, чтобы установить заголовок столбца до размера текста в заголовке столбца.

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

Answer 2

Попробуй это:

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

  { // Add your items  }

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