Delphi设置DBGrid每列自动居中

Delphi中DBGrid每列自动居中

我的方案是在表单创建的时候遍历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.
版权声明：本文为qxqx451原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。