如何在运行时创建 Tgrid

Question

我是 Delphi 创建运行时 Tgrid 的新手，想添加一些行和列。 我用谷歌搜索但没有得到任何东西。 我在零级。 我尝试过的我在下面提到了它。这段代码在我的表单上没有显示任何内容。

procedure TForm1.Button1Click(Sender: TObject);
var
  Grid : TGrid;
begin
  Grid := TGrid.Create(Form1);
  Grid.Visible := True;
  Grid.Margins.Left := 10;
  Grid.Margins.Right := 10;
  Grid.Margins.Top := 10;
  Grid.Margins.Bottom := 10;
  Grid.RowCount := 5;
end;

Answer 1

网格控件必须有一个父控件。 确实，自然地，系统必须知道（在屏幕上）将您的控制放在哪里！

您可能希望网格将表单作为其父级。 如果是这样，只需添加Grid.Parent:= Form1; 电网建成后。

当然，当您添加这行缺失的代码并查看网格时，您很快就会注意到您的Margins分配没有任何效果。 这是因为默认情况下，您使用其Top 、 Left 、 Height和Width属性手动控制控件的 position （没有双关语）。

但是如果您开始尝试使用Align属性，您会发现边距的效果，如果您还将AlignWithMargins设置为True 。 例如，如果将Align设置为alClient ，则控件将占据其父级的所有客户区，保留边距。