怎的不通过改变字体大小 改变dbgrid的行间距

怎样不通过改变字体大小 改变dbgrid的行间距
怎样不通过改变字体大小 改变dbgrid的行间距
[解决办法]

var
  sg: TStringGrid;
  i: integer;
begin
  sg := TStringGrid(DBGrid1);

  for i := 0 to sg.RowCount - 1 do
    sg.RowHeights[i] := 24;
end;