Adicionar o evento OnClick do DBGrid

private
procedure DBGridClick(Sender: TObject);
implementation
{$R *.DFM}
procedure TForm1.DBGridClick(Sender: TObject);
begin
  ShowMessage('Clicou no DBGrid.');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.ControlStyle := DBGrid1.ControlStyle + [csClickEvents];
  TForm(DBGrid1).OnClick := DBGridClick;
end;
Observaes:
{O segredo principal desta dica está OnCreate do Form. A primeira instrução ativa o evento OnClick. A segunda instrução acessa o manipulador do evento OnClick. Para isto precisamos tratar o DBGrid como se fosse Form, pois o evento OnClick está declarado como protegido (protected) na classe TDBGrid.
}    

Autor : desconhecido

Voltar