ListView，动态的增加Column,速度慢，为什么？

[litangel]

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
ListView1.Columns.Clear;
with ListView1 do begin
ListView1.DoubleBuffered := true;
Columns.Add;
Columns[0].Width := 100;
for i := 0 to 11 - 1 do begin
Columns.Add;
Columns[i+1].Alignment := taCenter;
Columns[i+1].Caption := 'ÎÒÎÒ';
Columns[i+1].Width := 62;
end;
Columns.Add;
Columns[Columns.Count-1].Caption := '×ܼÆ';
Columns[Columns.Count-1].Width := 80;
end;
end;

执行上述代码，ListView的列会像动画一样，一个接一个的显示，
我想是不是增加一列，ListView就会刷新，
能不能先不让ListView刷新，等所有的列加完了，再刷新？

谢谢了。

[litangel]

UP一下。

[liuhelin]

ListView1.Items.BeginUpdate;
ListView1.Columns.Clear;
with ListView1 do begin
ListView1.DoubleBuffered := true;
Columns.Add;
Columns[0].Width := 100;
for i := 0 to 11 - 1 do begin
Columns.Add;
Columns[i+1].Alignment := taCenter;
Columns[i+1].Caption := 'ÎÒÎÒ';
Columns[i+1].Width := 62;
end;
Columns.Add;
Columns[Columns.Count-1].Caption := '×ܼÆ';
Columns[Columns.Count-1].Width := 80;

Items.EndUpdate;

end;

[litangel]

谢谢。

解决了。