Contar quantidade de abertura das Telas

Delphi

03/12/2014

Bom dia!

Necessidade:
Contar quantas vezes cada tela do sistema foi aberta.

Para isso, criei uma tabela que receberá o nome do form e a quantidade que foi aberta.

Até então, a única forma que consigo pensar para implementar é no evento onShow da tela(form ou report).
porém são muitas telas e para implementar isso demorará bastante tempo.

Há alguma forma implementar essa funcionalidade sem ter que adicionar código em cada tela? (tipo, um evento a nível global que ocorra toda vez que eu crio ou exibo um form/report)
Wellington Dantas

Wellington Dantas

Curtidas 0

Respostas

Ricardo Valente

Ricardo Valente

03/12/2014

Coloque um componente ApplicationEvents no form principal...

Crie uma variavel global TFORM, ex:

FobjForm: TForm;

antes de chamar seus formularios atribua a variável FobjForm o seu formulario exe:

Form7 := TForm7.Create(self);
FobjForm := Form7;
form7.ShowModal;
form7.Free;

no evento onModalBegin do componente ApplicationEvents você coloca sua função para gravar o formulario aberto no banco de dados. Acredito que o trabalho seja menor

Abs.
GOSTEI 0
POSTAR