如何调整 DBGrid 的行高 - Delphi

Question

我有一个 DBGrid，它从我项目的数据模块中的 ADOTable 接收数据，但我注意到记录的文本或字段没有完全显示。由于行高较小，“g”的底部将被切断。我如何编写代码来更改此设置？

我知道您可以更改列宽。也可以对行做类似的事情吗？

Answer 1

您可以在设计时执行此操作的唯一方法是定义您自己的 TDBGrid 后代，向其添加 RowHeight 属性 并将其安装在 IDE.

以下将在 运行 时起作用：

type
 TMyDBGrid = class(TDBGrid);

procedure TForm1.Button1Click(Sender: TObject);
begin
 TMyDBGrid(DBGrid1).DefaultRowHeight := 32;
end;

之所以有效，是因为 DefaultRowHeight 是 TCustomGrid 的受保护 属性，TDBGrid 是从中继承而来的。