• Registered: 2017-05-30
  • Posts: 254

Topic: Анкор на крайний столбец в TableGrid

Есть TableGrid, у которого анкор привязан к правому краю формы.
Когда тянем форму за край (изменяем ее ширину) TableGrid тоже изменяет ширину.
Однако, столбцы в TableGrid автоматически не тянутся за правым краем TableGrid.
Их ширина остается неизменной.
Есть ли какой-либо способ повесить анкор на крайний столбец, чтобы он был привязан к правому краю TableGid?
Т.е. при изменении ширины TableGrid должна изменяться ширина какого-либо столбца.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Анкор на крайний столбец в TableGrid

Можно, используя события формы OnResize


пример, если в гриде три колонки

procedure Form1_OnResize (Sender: TObject);
var
    columnsW: integer;
begin
    if Form1.TableGrid1.Columns.Count >= 3 then
    begin
        columnsW := 0;
        columnsW := columnsW + Form1.TableGrid1.Columns[0].Width;
        columnsW := columnsW + Form1.TableGrid1.Columns[1].Width;
        Form1.TableGrid1.Columns[2].Width := Form1.TableGrid1.ClientWidth - columnsW;
    end;
end;
Dmitry.