DBGrid - criando evento onclick

Top  Previous  Next

type

 THack = class(TDBGrid) 

 

procedure TForm1.Button1Click(Sender: TObject); 

begin 

  THack(dbgrid1).controlstyle := THack(dbgrid1).controlstyle + [csClickEvents]; 

  THack(dbgrid1).OnClick := Form1.OnClick; 

end

 

 

procedure TForm1.FormClick(Sender: TObject); 

begin 

 ShowMessage('Teste'); 

 application.processmessages; 

end

 

 

 

 

Observações

 

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.