Dicas - Adicionar OnClick no DBGrid

Adicionar o evento OnClick do DBGrid.

Adicionar o evento OnClick do DBGrid

 

Na seção private da unit e declare a seguinte procedure:

 

private

  procedure DBGridClick(Sender: TObject);

 

E implemente-o com o seguinte código:

 

ShowMessage('Clicando no DBGrid');

 

Coloque o seguinte código no evento OnCreate:

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  DBGrid1.ControlStyle := DBGrid1.ControlStyle + [csClickEvents];

  TForm(DBGrid1).OnClick := DBGridClick;

end;

 

Rode a aplicação e clique sobre o DBGrid para receber a mensagem.

 

por Luciano Pimenta

Artigos relacionados