Button dentro de uma grid nao funciona o envento de click

Delphi

29/08/2012

Estou tendo esse problema e nao sei como resolver

se eu crio uma grid dinamicamente, e crio um botão dinamicamente e coloco dentro desta grid, o evento de click do botao não funciona

segue um exemplo de codigo abaixo

procedure TForm1.btnClick(Sender: TObject);
begin
  ShowMessage('teste');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  btn : TBitBtn;
  grid: TStringGrid;
begin
  grid := TStringGrid.Create(self);
  grid.Parent := self;
  btn := TBitBtn.Create(self);
  btn.OnClick := btnClick;
  btn.Width := 15;
  btn.Height := 19;
  btn.Caption := 'I';
  btn.Parent := grid;
end;


Alguem poderia me dizer, como devo proceder para fazer o click do botao funcionar?
obrigado
Rafael Reis

Rafael Reis

Curtidas 0
POSTAR