如何在运行时创建的 Tgrid 中为列命名并在行中填充数据； (德尔福)答案

【问题标题】：How to give name to column and fill data in row in Tgrid created at runtime; (Delphi)如何在运行时创建的 Tgrid 中为列命名并在行中填充数据； (德尔福)
【发布时间】：2020-05-26 13:28:24
【问题描述】：

我是使用 Embarcadero® RAD Studio 10 Seattle 的 Delphi Firemonkey 新手。我在运行时创建一个Tgrid。如何给列命名并在行中填充数据？我的代码如下。

procedure TForm1.Button1Click(Sender: TObject);
var
  Grid : TGrid;
begin
  Grid := TGrid.Create(Form1);
  Grid.Visible := True;
  Grid.Parent := Form1;
  Grid.Align := Grid.Align.alClient;
  Grid.RowCount := 5;
end;

【问题讨论】：

请只用一般的delphi标签和你的实际版本标签delphi-10-seattle在你的情况下标记你的问题，firemonkey表明你使用的库。如果您的目标平台对于理解您的问题很重要，您也可以相应地标记。
您提供的代码与上一个问题完全相同，对吧？当然，您至少应该包括列创建代码，不是吗？最后你尝试了什么？列的“名称”到底是什么意思？名称作为所有对象的Name 属性或“名称”作为标题文本？请注意解释的更详细一点。
@TomBrunberg 我弄错了列名表示列的标题，如地址、城市。我用谷歌搜索，但我不知道如何通过创建行来为列提供标题并在单元格中填充数据（数据将是表单查询）。
@TomBrunberg 应用程序中有 3 种形式（销售、购买、物品），我想使用网格以受尊重的格式显示它们的数据。因此，我想制作一个具有所需参数的程序，该程序可以在运行时创建网格，并且可以为列提供标题并在单元格中填充数据。因此，无论我想在哪里以网格格式显示我的数据，我都可以使用相关参数调用此过程，并且所有数据都将以正确的格式提供。如果您有任何疑问，请询问。如果你能帮忙，我想解决它。
@MartynA 感谢您的回复。它现在可见但如何在其中添加数据？

标签： delphi firemonkey delphi-10-seattle

【解决方案1】：

如果您的名称是指在列顶部可见的标题，则：

每一列（您也必须创建）是某种类型的 TColumn（例如 TStringColumn）。 TColumn 有一个 Header 属性（一个字符串），您可以设置它，它指定列的标题单元格中的字符串。

见http://docwiki.embarcadero.com/Libraries/Seattle/en/FMX.Grid.TColumn.Header

【讨论】：