1. 程式人生 > >Delphi設定DBGrid每列自動居中

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.