Как вы связываете объект с объектом TGridColumns

Question

Я использую Lazarus 0.9.30.

У меня есть стандартная TStringGrid в форме, и у меня есть функция, которая динамически добавляет объекты TGridColumns во время выполнения. У меня есть коллекция объектов, которая содержит все атрибуты каждого столбца (которые я считываю из файла во время выполнения), и я хочу связать каждый объект с соответствующим заголовком столбца.

Я попробовал приведенный ниже код, но во время выполнения, когда я пытаюсь получить доступ к объекту за объектом заголовка столбца, я получаю возвращенный объект 'nil. Я подозреваю, что причина этого заключается в том, что ячейка сетки (которая содержит заголовок столбца) пуста, и вы не можете связать объекты с пустыми ячейками сетки.

type
  TTmColumnTitles = class(TTmCollection)
  public
    constructor Create;
    destructor  Destroy; override;

    function  stGetHint(anIndex : integer) : string;
  end;

type
  TTmColumnTitle = class(TTmObject)
  private
    FCaption         : string;
    FCellWidth       : integer;
    FCellHeight      : integer;
    FFontOrientation : integer;
    FLayout          : TTextLayout;
    FAlignment       : TAlignment;
    FHint            : string;

    procedure vInitialise;

  public
    property stCaption        : string      read FCaption         write FCaption;
    property iCellWidth       : integer     read FCellWidth       write FCellWidth;
    property iCellHeight      : integer     read FCellHeight      write FCellHeight;
    property iFontOrientation : integer     read FFontOrientation write FFontOrientation;
    property Layout           : TTextLayout read FLayout          write FLayout;
    property Alignment        : TAlignment  read FAlignment       write FAlignment;
    property stHint           : string      read FHint            write FHint;

    constructor Create;
    destructor  Destroy; override;
  end;

procedure TTmMainForm.vLoadGridColumnTitles
  (
  aGrid       : TStringGrid;
  aCollection : TTmColumnTitles
  );
var
  GridColumn   : TGridColumn;
  aColumnTitle : TTmColumnTitle; //Just a pointer!
  anIndex1     : integer;
  anIndex2     : integer;
begin
  for anIndex1 := 0 to aCollection.Count - 1 do
    begin
      aColumnTitle := TTmColumnTitle(aCollection.Items[anIndex1]);

      GridColumn := aGrid.Columns.Add;
      GridColumn.Width := aColumnTitle.iCellWidth;
      GridColumn.Title.Font.Orientation := aColumnTitle.iFontOrientation;
      GridColumn.Title.Layout           := aColumnTitle.Layout;
      GridColumn.Title.Alignment        := aColumnTitle.Alignment;
      GridColumn.Title.Caption          := aColumnTitle.stCaption;

      aGrid.RowHeights[0] := aColumnTitle.iCellHeight;
      aGrid.Objects[anIndex1, 0] := aColumnTitle;
    end; {for}
end;

Answer 1

Недостаточно просто присвоить объект свойству Objects. Вы должны нарисовать заголовок заголовка из этого объекта самостоятельно в обработчике событий OnDrawCell или назначить свойство Cells.

и вы не можете связать объекты с пустыми ячейками сетки

Да, вы можете. Строка и объект одной ячейки «работают» независимо друг от друга.

Так и должно быть:

  for anIndex2 := 0 to aGrid.ColCount - 1 do 
  begin
    aColumnTitle := aCollection.Items[anIndex2];   // Is aCollection.Count in sync
                                                   // with aGrid.ColCount??
    aGrid.Cells[anIndex2, 0] := aColumnTitle.Caption;    
    aGrid.Objects[anIndex2, 0] := aColumnTitle;
  end;