Código
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;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009