定义网格面板布局大小样式属性

Question

我正在尝试向 gridPanelLayout 添加标签、按钮、编辑和按钮。我不确定 sizestyle auto 是否是最好的，所以想测试一下。我在运行时制作组件。所以我尝试为每组组件添加一个新行。但我不知道如何将 SizeStyle 的属性设置为 auto。我现在有

GridpanelLayout1.RowCollection[i].SizeStyle := TsizeStyle.auto

但它给出了 TSizeStyle 未声明的错误。

 //add to grid
      gridpanelLayout1.BeginUpdate;

      if i <> 0 then
      begin
      GridpanelLayout1.rowcollection.Add;
      GridpanelLayout1.RowCollection[i].SizeStyle := TsizeStyle.auto
      end;

      GridpanelLayout1.ControlCollection.Add;
      GridpanelLayout1.ControlCollection[i].Column := 0;
      GridpanelLayout1.controlCollection[i].Row := i;
      GridpanelLayout1.ControlCollection[i].Control := (namelabel);

      GridpanelLayout1.ControlCollection.Add;
      GridpanelLayout1.ControlCollection[i].Column := 1;
      GridpanelLayout1.controlCollection[i].Row := i;
      GridpanelLayout1.ControlCollection[i].Control := (minusButton);

      GridpanelLayout1.ControlCollection.Add;
      GridpanelLayout1.ControlCollection[i].Column := 2;
      GridpanelLayout1.controlCollection[i].Row := i;
      GridpanelLayout1.ControlCollection[i].Control := (editfield);

      GridpanelLayout1.ControlCollection.Add;
      GridpanelLayout1.ControlCollection[i].Column := 3;
      GridpanelLayout1.controlCollection[i].Row := i;
      GridpanelLayout1.ControlCollection[i].Control := (Plusbutton);

      GridpanelLayout1.EndUpdate;

Answer 1

TSizeStyle

是在 TGridPanelLayout 类中

声明的类型。

要解决该问题，请将该行更改为 read

GridpanelLayout1.RowCollection[i].SizeStyle := TGridPanelLayout.TsizeStyle.auto