how can I insert a button in grid cell firemonkey xe6?

  

In Delphi XE5 it’s work. The cell display the button.
not work in delphi XE6. The cell does not display the button.

Type
TSimpleLinkCell = class(TTextCell)
protected
FButton: TSpeedButton;
procedure ButtonClick(Sender: TObject);
public
constructor Create(AOwner: TComponent); reintroduce;
end;

constructor TSimpleLinkCell.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Self.TextAlign := TTextAlign.taLeading;
FButton := TSpeedButton.Create(Self);
FButton.Parent := Self;
FButton.Height := 16;
FButton.Width := 16;
FButton.Align := TAlignLayout.alRight;
FButton.OnClick := ButtonClick;
end;

Comments are closed.