TMSFNCDataGrid click button event

[von_der_Burchard_Ingo_Buell]

When creating a button column

Grid.Columns[0].&Type:=gcitButton;
Grid.Columns[0].TypeRange:=gcirNormal;
Grid.Columns[0].AddSetting(gcsType);

and creating properties like

procedure TForm.GridGetCellProperties(Sender: TObject; ACell: TTMSFNCDataGridCell);
begin
  if ACell.IsButtonCell then ACell.AsButtonCell.Button.Caption:='Test';
end;

how can I get access to properies in GridCellButtonClick event?

procedure TForm.GridCellButtonClick(Sender: TObject; AColumn, ARow: Integer);
begin
  ACell???
end;

[Pieter]

You can access the cell object with

procedure TForm1.TMSFNCDataGrid1CellButtonClick(Sender: TObject; AColumn,
  ARow: Integer);
var
  obj: TTMSFNCDataGridCell;
begin
  obj := TMSFNCDataGrid1.GetCellObjectForCell(MakeCell(AColumn, ARow));
  if obj.IsButtonCell then
    obj.AsButtonCell.Button.Text := 'test';
end;

[von_der_Burchard_Ingo_Buell]

works fine, thanks…

[Pieter]

With pleasure