Delphi设置DBGrid每列自动居中

版权声明：四川华迪信息技术有限公司java实训班乔二 https://blog.csdn.net/qxqx451/article/details/83144354

我的方案是在表单创建的时候遍历DBGrid每列的的Alignment属性并给它赋值居中属性。

procedure TPatHomePage.FormCreate(Sender: TObject);
var i,j:Integer;
begin
  j:=dbgrd1.Columns.Count-1;
  for i:=0 to j do
  begin
    dbgrd1.Columns.Items[i].Title.Alignment:=taCenter;
    end;

end;

end.