TListView列居中显示

procedure TfrmServerTopLogisticsCompany.FormShow(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ListView1.Columns.Count-1 do
  begin
    ListView1.Column[I].Alignment := taCenter;
  end;
end;

===

设置好像设置不了,不知道是不是IDE的问题,暂时这样动态设置就可