0

Добрый день! Подскажите, пожалуйста, как можно добавить в ячейку TGrid кнопку?

2
  • Написать новый компонент TGridWithButton
    – BuilderC
    5 окт 2012 в 16:15
  • Боюсь, что это слишком сложный путь для меня - в FireMonkey я новичок!
    – leklerk
    5 окт 2012 в 16:43

1 ответ 1

2

Проблема решена:

type
  TBtnCell = class(TStyledControl)
  FBtn : TButton;
private
  class procedure MyClick(Sender: TObject);
public
  constructor Create(AOwner: TComponent); override;
end;

constructor TBtnCell.Create(AOwner: TComponent);
begin
inherited;
  FBtn := TButton.Create(Self);
  FBtn.Parent := Self;
  FBtn.Align := TAlignLayout.alClient;

  FBtn.Text := 'Click me';
  FBtn.OnClick := TBtnCell.MyClick;
end;

class procedure TBtnCell.MyClick(Sender: TObject);
begin
  ShowMessage('test');  
end;

type
  TButtonColumn = class(TColumn)
  private
    function CreateCellControl: TStyledControl; override;
  end;

function TButtonColumn.CreateCellControl: TStyledControl;
begin
  Result := TBtnCell.Create(Self);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Grid1.AddObject(TButtonColumn.Create(Grid1));
end;

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.