我是个完美主义者，既不想设置太宽，浪费界面。也不想太窄，显示不下SubItems的文字。
在网上找了很多相关的文章，都千篇一律的 AutoSize，其实并没有效果。
后来在一篇外文网站看到完美解决方法
将Columns的宽度设为 -1即可
例如
TntListView1.Columns[0].Width := -1;
这样宽度就会自适应SubItems里最宽的字符长度了
如果
TntListView1.Columns[0].Width := -2;
则无论SubItems的文字多长，Columns的宽度都等于Header的文字宽度
图例
1、初始状态
2、插入一个Caption，此时宽度自适应为test宽度
3、插入一个Caption，此时宽度适应最大宽度test123
学习！备忘！
转载于:https://www.cnblogs.com/lojon/archive/2011/09/16/2179026.html
相关资源：数据结构—成绩单生成器