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
