Application - Como saber se nao esta sendo usada

Top  Previous  Next

//Como verificar que sua aplicação não está sendo utilizada

//Voce pode testar, caso sua aplicacao tenha um unico formulario, o evento OnDeactivate do formulario.

//Mas, o melhor mesmo eh com a aplicacao.

//Digite o seguinte codigo, no formulario principal:

 

TSeuFormulario = class (Tform)

public

procedure Desabilitou (Sender : TObject);

//Isso voce deve ter notado que deve acrescentar um metodo, manualmente, ao seu formulario.

 

//A implementacao serah:

 

procedure TSeuFormulario.Desabilitou (Sender : TObject);

Begin

{O que voce deseja fazer}

End;

//No create de seu formulario principal, digite a linha abaixo:

 

Application.OnDeactivate := Desabilitou;

//Pronto.