Detectar mudan�a de plano

Question

Ando tendo a [b:6a2793e4e6]NECESSIDADE[/b:6a2793e4e6] de criar um evento para quando o programa � deixado de lado para ser feito outra coisa, tipo, por exemplo, o user alterna para outro programa, nes...

Deus · Answer

Bem, isso � simples.. basta voc� adicionar o seguinte procedimento � sua aplica��o:

procedure SaiudaAplicacao(var Msg: TWMActivate); message WM_ACTIVATE;

Que vai ser ativado caso a aplica��o receba uma mensagem do tipo [i:ae2774bdc0]WM_ACTIVATE[/i:ae2774bdc0]. Agora, � s� verificar se a aplica��o foi ativada ou n�o:

procedure TForm1.SaiudaAplicacao(var Msg: TWMActivate);
begin
    WA_INACTIVE: begin
                   // Faz o que tem pra fazer quando sair;
                 end;
    WA_ACTIVE:   begin
                   // Faz o que tem pra fazer quando sair;
                 end;
  end;
end;

Aten��o: [b:ae2774bdc0]N�O[/b:ae2774bdc0] coloque nada que tire o foco da janela no c�digo (tipo um [i:ae2774bdc0]ShowMessage[/i:ae2774bdc0], [i:ae2774bdc0]MessageDlg[/i:ae2774bdc0] ou [i:ae2774bdc0]MessageBox[/i:ae2774bdc0]) pois se n�o voc� vai gerar uma exce��o que vai impedi-lo de voltar � aplica��o. Use isso apenas para registrar o evento num log, ou ligar / desligar um timer, qualquer coisa que [b:ae2774bdc0]N�O[/b:ae2774bdc0] mexa com o foco da aplica��o. Ok? :) Espero ter ajudado! :) Abra�os, dEUS.

Deus · Answer

Corrigindo o c�digo do [i:374c92437d]procedure TForm1.SaiudaAplicacao(var Msg: TWMActivate)[/i:374c92437d], que saiu [b:374c92437d]todo[/b:374c92437d] errado... :oops:

procedure TForm1.SaiudaAplicacao(var Msg: TWMActivate);
begin
  case (Msg.Active) of
      WA_INACTIVE: begin
                   // Faz o que tem pra fazer quando sair;
                   end;
      WA_ACTIVE:   begin
                   // Faz o que tem pra fazer quando voltar;
                   end;
  end;
end;

Agora sim. ;) Mil perd�es pelo erro. :) Abra�os, dEUS.

Richard Lima · Answer

Exatamente o que eu procurava, que bom que foi simples :)

ora ora.. quem diria.. �recebi uma ajuda de deus!� hohohoho brincadeira

obrigado de verdade!

isso realmente � de grande utilidade pra mim...

um grande abra�o.

F�rum Detectar mudan�a de plano #202325