Buscar

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

Código

{Você pode testar, caso sua aplicação tenha um único formulário, o evento OnDeactivate do formulário. Mas, o melhor mesmo é com a aplicação.

Digite o seguinte código, no formulário principal:}



TSeuFormulario = class (Tform)
public
procedure Desabilitou (Sender : TObject); {Isso voce deve ter notado que deve acrescentar um método, manualmente, ao seu formulário.

A implementação será:}



procedure TSeuFormulario.Desabilitou (Sender : TObject);
Begin
{O que voce deseja fazer}
End; //No create de seu formulário principal, digite a linha abaixo:

Application.OnDeactivate := Desabilitou;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 06/06/03
Por: Felipe Monteiro
Visualizada: 3292 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009