quando a aplica��o perder o foco

Question

Ol�Eu preciso de executar alguns c�digos , toda vez que minha aplica��o perder o foco , ou for minimizadaAlguem sabe qual o evento que se deve usar nestas condi�oes ????obrigado......

Massuda · Answer

Acho que voc� deve usar os eventos OnDeactivate e OnMinimize do objeto global Application; dependendo da sua vers�o do Delphi, pode usar um componente AppEvents....

Marco Salles · Answer

[quote:c7ec303b9e]Acho que voc� deve usar os eventos OnDeactivate e OnMinimize do objeto global Application; [/quote:c7ec303b9e]sim massuda , mas onde eu defino esses eventos  :?:  :?:  :?: application.OnDeactivate e application.OnMinimize;  :?:  :?:  :?: Pelo que me consta esse objeto ao contr�rio do  componente AppEvents , n�o � fisico :?:  :?:  :?:...

Massuda · Answer

[quote:0f6080604b=�Marco Salles�]...onde eu defino esses eventos?[/quote:0f6080604b]Voc� pode usar um componente TAppEvents no form principal do seu programa (� o jeito mais f�cil) ou no form principal do seu programa voc� declara as procedures necess�rias e no OnCreate/OnDestroy do form principal voc� faz os ajustes necess�rios no objeto global Application.

O objeto Application � global, est� dispon�vel em qualquer unit que inclua a unit Forms. � prefer�vel que voc� fa�a isso no form principal porque com certeza o form existe durante a execu��o do programa e, consequentemente, o c�digo que voc� por para executar no OnDeactivate/OnMinimize do Application est� dispon�vel.

Marco Salles · Answer

beleza massusa.Usar este componente � tranquilo.. N�o tem nenhum problema.mas so ha titulo de aprendizado , se eu fosse optar pela primeira op��o:[quote:32c2c372a5]no form principal do seu programa voc� declara as procedures necess�rias e no OnCreate/OnDestroy do form principal voc� faz os ajustes necess�rios no objeto global Application.[/quote:32c2c372a5] [quote:32c2c372a5]..........consequentemente, o c�digo que voc� por para executar no OnDeactivate/OnMinimize do Application est� dispon�vel.[/quote:32c2c372a5] Como seria por exemplo , um desses codigos massuda  :?:  :?:  :?:...

Massuda · Answer

[quote:8e00a5ddcd=�Marco Salles�]...se eu fosse optar pela primeira op��o... Como seria por exemplo , um desses codigos[/quote:8e00a5ddcd]Do jeito antigo (antes de inventarem o componente TAppEvents) o c�digo iria todo no form principal e ficaria parecido com isso...

type
  TSeuForm = ...
    ...
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    procedure ApplicationMinimize(Sender: TObject);
    procedure ApplicationDeactivate(Sender: TObject);
...

procedure TSeuForm.FormCreate(Sender: TObject);
begin
  ...
  Application.OnMinimize := ApplicationMinimize;
  Application.OnDeactivate := ApplicationDeactivate;
end;

procedure TSeuForm.FormDestroy(Sender: TObject);
begin
  ...
  Application.OnMinimize := nil;
  Application.OnDeactivate := nil;
end;

procedure TSeuForm.ApplicationMinimize(Sender: TObject);
begin
  ...
end;

procedure TSeuForm.ApplicationDeactivate(Sender: TObject);
begin
  ...
end;

...a �nica diferen�a � o tratamento no OnCreate/OnDestroy do form.

Marco Salles · Answer

[quote:b71091d587]-------------------------------------------------------------------------------- Marco Salles escreveu: ...se eu fosse optar pela primeira op��o... Como seria por exemplo , um desses codigos Do jeito antigo (antes de inventarem o componente TAppEvents) o c�digo iria todo no form principal e ficaria parecido com isso...C�digo: type   TSeuForm = ...     ...     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     procedure ApplicationMinimize(Sender: TObject);     procedure ApplicationDeactivate(Sender: TObject); ... procedure TSeuForm.FormCreate(Sender: TObject); begin   ...   Application.OnMinimize := ApplicationMinimize;   Application.OnDeactivate := ApplicationDeactivate; end; procedure TSeuForm.FormDestroy(Sender: TObject); begin   ...   Application.OnMinimize := nil;   Application.OnDeactivate := nil; end; procedure TSeuForm.ApplicationMinimize(Sender: TObject); begin   ... end; procedure TSeuForm.ApplicationDeactivate(Sender: TObject); begin   ... end; ...a �nica diferen�a � o tratamento no OnCreate/OnDestroy do form.[/quote:b71091d587]obrigado massuda , era isto mesmo que eu estava querendo refrescar a minha mem�ria , principalmente esta linha de codigo abaixo::[code:1:b71091d587]begin   ...   Application.OnMinimize := ApplicationMinimize;   Application.OnDeactivate := ApplicationDeactivate; end; [/code:1:b71091d587]Valeu mesmo  :P  :P  :P  :P  :P...

F�rum quando a aplica��o perder o foco #289633