如何控制DBGrid的列宽，我可不是说手动调节！我的意思是在程序中的DBGRID属性！

Question

type  array of integer.
procedure  TForm1.DBGrid1DrawColumnCell(Sender:  TObject;  const  Rect:  TRect;  
    DataCol:  Integer;  Column:  TColumn;  State:  TGridDrawState);  
begin  
///////Begin  保留  
    if  XXX[Column.Field.Index]  <    Canvas.TextWidth(Column.Field.DisplayText)  then  
        XXX[Column.Field.Index]  :=  Canvas.TextWidth(Column.Field.DisplayText);  
///////End  保留  
end;
伴水早回答过这个问题了。

Answer 1

type xxx  array of integer;

Answer 2

for i:=0 to DBGrid1.Columns.Count-1 do
    begin
        DBGrid1.Columns[i].Width:=60;
    end;
将每行宽设为60，具体的你自己去定义吧