【问题讨论】：
Absolute 而不是Percent 作为Size Type。将TGridPanel 的外边界设计为行数乘以每行的高度。
标签： delphi delphi-10.3-rio tgridpanel
当SizeStyle=ssPercent 大小计算包括double 值（百分比）。在VCL 中，结果必须四舍五入为整数（= 像素）。该代码使用Trunc()，大概是为了确保行数适合GridPanel。然后，多余的像素（如果有的话）被“赋予”到最后一行。
您可以使用SizeStyle=ssAbsolute 代替SizeStyle=ssPercent 并将行高定义为像素数。在这种情况下，计算不包括浮点值，也不需要四舍五入。在这种情况下，您可以声明每行的高度，例如28 如果GridPanel1 的高度为280，则所有行的高度相同。
您可以通过在RowCollection下的结构窗格中选择所有TRowItem，在IDE（对象检查器）中选择SizeStyle。
您也可以在运行时定义这些设置。
评论后编辑
如果您使用SizeStyle=ssPercent，则需要在问题中显示的两种情况之间做出选择。
如果你使用SizeStyle=ssAbsolute，你可以使用TGridPanel1.OnResize()事件重新计算物品高度：
procedure TForm7.GridPanel1Resize(Sender: TObject);
var
i, toth, rowh: integer;
gp: TGridPanel;
begin
gp := Sender as TGridPanel;
toth := gp.Height;
rowh := toth div gp.RowCollection.Count;
for i := 0 to gp.RowCollection.Count-1 do
gp.RowCollection.Items[i].Value := rowh;
end;
另外，如果GridPanel1的颜色与窗体的颜色相同，您可能需要设置GridPanel1.BevelOuter=bvNone，它隐藏GridPanel1的边框线和出现在下面的空白区域行（当toth 不能整除时）变得不明显。
【讨论】：