如何通过Delphi自动调整TStringGrid的行高？

本文共计416个文字，预计阅读时间需要2分钟。

如何自动调整TStringGrid行（DefaultRowHeight）以匹配使用的字体高度？我的做法是：Grid.DefaultRowHeight=Grid.Canvas.TextHeight('X') + 4；但它不起作用。对于小字体，行的高度太大。更新：这似乎是程序的问题。