在运行时将列动态添加到 TStringGrid 时如何避免固定列？

Question

我正在使用 Lazarus 0.9.30.2。 我有一个标准的 TForm，上面有一个标准的 TStringGrid。字符串网格在设计时没有列或行。在 Object Inspector 中设置了以下值。

ColCount = 0
Columns = 0
FixedCols = 0
FixedRows = 0
RowCount = 0

我想在运行时添加一些 TGridColumns，并且已经能够这样做但总是得到一个固定的列，这是我不想要的。为此，我编写了与下面的示例非常相似的代码。当我编译并运行它时，我得到以下信息。

如何在运行时去掉固定的列并留下剩余的列？

unit test;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids;

type
  TForm1 = class(TForm)
    SgGrid: TStringGrid;
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1; 

implementation

{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  GridColumn : TGridColumn;
  anIndex    : integer;
begin
  for anIndex := 0 to 5 do
    begin
      GridColumn := SgGrid.Columns.Add;
      GridColumn.Width := 50;
      GridColumn.Title.Caption := 'Col ' + inttostr(anIndex);
    end; {for}
end;

end.                                                                                                                                              

Answer 1

我认为这是一种功能（或从另一个角度来看的错误）。如果在设计时您的字符串网格为空（0 列，0 行），则在运行时添加列时，以下属性将设置为默认的存储值。

• TStringGrid.RowCount
• TStringGrid.FixedRows
• TStringGrid.FixedCols

如何解决：

• 在添加至少一列后，在运行时将 TStringGrid.FixedCols 设置为 0，对于您的情况，只需在添加所有列之后

• 或在设计时将 TStringGrid.ColCount 和 TStringGrid.FixedRows 设置为 1，您将看到该列，但 TStringGrid.Columns 集合仍然为空，因此无需担心您会在运行时（在 Delphi 中，例如，您甚至不能将列数或行数设置为 0）

我怀疑TCustomGrid.AdjustCount 程序，但这只是一个疯狂的猜测，而且离题了。