Quick Tips : ApplicationEvents do Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Nesta Quick iremos ver o alguns eventos do ApplicationEvents.



Olá galera, nesta Quick Tips irei mostrar um componente no Delphi chamado ApplicationEvents(Palheta Additional), o mesmo intercepta as mensagens, eventos, exceções que acontecem na aplicação.

 

Vamos ao exemplo :

Adicione 2 LabeledEdit(EdtNome, EdtCPF) e um ApplicationEvents

 


 


EdtNome :

                Hint = ‘Digite seu nome’

                ShowHint = True

 

EdtCPF :

                Hint = ‘Digite seu CPF’

                ShowHint = True

 

ApplicationEvents

 

  • onException : Neste evento conseguimos interceptar quando uma exceção ocorre no nosso código.
  1. procedure TFrmPrincipal.ApplicationEvents1Exception(Sender: TObject; E: Exception);
  2. begin
  3.   if pos('foreign key', E.Message) <> 0 then
  4.       ShowMessage('Erro de Chave Estrangeira')
  5.   else
  6.   if pos('Access violation', E.Message) <> 0 then
  7.       ShowMessage('Erro ao acessar um Objeto')
  8.   else
  9.     ShowMessage('Erro não tratado ' +#13+
  10.                  E.Message );
  11. end;
  • onMinimize : Neste evento conseguimos interceptar o momento em que nossa aplicação esta sendo minimizada.
  1. procedure TFrmPrincipal.ApplicationEvents1Minimize(Sender: TObject);
  2. begin
  3.   ShowMessage('Aplicação foi minimizada');
  4. end;
  • onRestore : Neste evento conseguimos interceptar quando nossa aplicação é restaurada depois de ser minimizada.
  1. procedure TFrmPrincipal.ApplicationEvents1Restore(Sender: TObject);
  2. begin
  3.   ShowMessage('Aplicação foi restaurada');
  4. end;
  • onShowHint : Neste evento conseguimos capturar os hints que acontecem na nossa aplicação e assim exibirmos no Caption ou em qualquer outro local.
  1. procedure TFrmPrincipal.ApplicationEvents1ShowHint(var HintStr: string;
  2.   var CanShow: Boolean; var HintInfo: THintInfo);
  3. begin
  4.   Caption := Application.Hint;
  5. end;

Rode a aplicação, Minize, depois restaure, coloque o mouse sobre os edits, gere algum access violation para vermos o que acontece.


Fico por aqui e na próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br


 

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?