我用如下代码,请问如何控制每个列的宽度!?
with adoquery2 do
begin
sql.Clear;
sql1:='select dt as 日期,bz as 备注 from log order by dt';
sql.add(sql1);
active:=true;
open;
end;
datasource1.DataSet:=adoquery2;
dbgrid1.DataSource:=DataSource1;
dbgrid1.ReadOnly:=true;
另外,如何控制每一列的显示样式?

解决方案 »

  1.   

    在属性编辑器里为每个Column设置width
      

  2.   

    dbgrid1.Columns[i].Width := 20;
      

  3.   

    dbgrid1.Columns[i].Width赋值为你想要的.
    不过你也可以在程序运行之后你想要多宽就把它拉成多宽啊.呵呵^_^
      

  4.   

    dbgrid1.columns.Items[i].Alignment:=taCenter;
      

  5.   

    Alignment
    Alignment
    Alignment
    Alignment
      

  6.   

    procedure TForm_BJCJVIEW.StringGrid1GetAlignment(Sender: TObject; ARow,
      ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
    begin
       HAlign:=Tacenter;
    end;