如何自动调整Delphi中TStringGrid的行大小实现自适应显示？

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

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