ListView当ViewStyle为vsReport时，只能放两列内容吗？

[yudu]

现在只能实现的是：
第一列 第二列
违章代码 违章说明


我想实现如下的功能：
第一列 第二列 第三列 第四列
违章代码 违章说明 违章罚款 违章扣分

[fengjn]

当然可以多列

[outer2000]

当然可以了啊，NEW COLUMS；

[李_军]

当然可以了啊，NEW COLUMS；

[fengyu8498]

你在设计时就可以设定COLUMS的多少呀，

[hof]

Columns.Clear;

ListColumn:=Columns.Add;
ListColumn.Caption:='违章代码;
ListColumn.Alignment :=taCenter;

ListColumn:=Columns.Add;
ListColumn.Caption:='违章说明';

ListColumn:=Columns.Add;
ListColumn.Caption:=' 违章罚款';
ListColumn.Alignment :=taLeftJustify ;

ListColumn:=Columns.Add;
ListColumn.Caption:='违章扣分';
ListColumn.Alignment :=taCenter;



增加数据

while xxxx do
begin
ListItem := Items.Add;
ListItem.Caption :='xxxx';
ListItem.SubItems.Add('zzxxxx');
ListItem.SubItems.Add('xxxxx');
ListItem.SubItems.Add('xxxx');
end;

[joky1981]

点击ListView的Columns属性,在编辑对话框中可以添加列并设置相应列的属性

[wh_mimi]

procedure AddColumn;
var newColumn: TListColumn;
begin
newColumn:= ListView1.Columns.add;
newColumn.caption:= '违章代码'
newColumn:= ListView1.Columns.add;
newColumn.caption:= '违章说明'
newColumn:= ListView1.Columns.add;
newColumn.caption:= '违章罚款'
end;

procedure AddValue;
var listitem:= TListItem;
begin
listitem:= listview1.items.add;
listitem.caption:= 'dddd';
listitem.subitems.add('111');
listitem.subitems.add('222');
listitem.subitems.add('333');
end;
不过第一COLUMN的Alignment不能设为taCenter

[doctor5]

可以，delphi有帮助的