DELPHI DBGRID 设定COLUMNS列宽度

procedure Tfrm_inv_cmp_wip3.SearchBtnClick(Sender: TObject);
var
i:integer;
begin
Screen.Cursor:=crSQLWait; //鼠標變成漏鬥。
dmmrp_c.CD_temp.Close;
dmmrp_c.CD_Temp.CommandText:=' exec p_inv_cmp_wip ' + quotedStr(trim(edit1.Text));
dmmrp_c.CD_Temp.Open;
Screen.Cursor:=crDefault;

for i:=0 to dbgrid1.Columns.Count-1 do
begin //設定DBGRID的列寬,固定寬度為80。
dbgrid1.Columns.Items[i].Width :=80 ;
end;

end;