fixed - 在运行时将列动态添加到 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.ColCountand设置TStringGrid.FixedRows为 1，您将看到该列，但TStringGrid.Columns集合仍然为空，因此无需担心您会在运行时获得一列额外的列（例如在 Delphi 中，您甚至无法设置列或行数到 0）

我怀疑这个TCustomGrid.AdjustCount程序，但这只是一个疯狂的猜测和题外话。