Sobre Cria��o de Componentes

Question

Criei um componente para controle das Mensagens de Erro na aplica��o. O caso � que precisei trabalhar com alguns outros pontos, ent�o no Constructor do componente, crio um TApplicationEvents.O caso � ...

Micheus · Answer

Vc precisa processar estes eventos em design-time?
Talvez se vc criar o objeto apenas em run-time pode n�o ter esse efeito estranho. Tente verificar o estado o componente antes de criar e utilizar o objeto, utilizando a propriedade ComponentState:

if not (csDesigning in ComponentState) then
  CompAppEvents := TApplicationEvents.Create
...

Thomaz_prg · Answer

Muito Obrigado pela dica amigo...
realmente n�o preciso desse componente em DesignTime... vou testar sua dica...

muito obrigado mesmo!
Ah, se o componente ficar bom, mando aqui pro pessoal pra ficar dispon�vel pra download.

Thiago Vidal · Answer

tecnicamente, vc nao precisaria de um TApplicationEvents para isso.

base vc colocar, no Create do seu componente:

if not (csDesigning in ComponentState) then
begin
  FOldOnExcept := Application.OnExcept;
  Application.OnExcept := AppExcept;
end;

e no Destroy:

if not (csDesigning in ComponentState) then
begin
  Application.OnExcept := FOldExcept;
end;

Ele deve estar fechando o Delphi, pq o Delphi tem o seu proprio evento no Application.OnExcept, se vc apontar para o seu componente, e depois destru�-lo, qdo houver uma exce��o ocorrer� um access violation, e a� o Delphi fecha. Por isso recomendo salvar a instru��o atual do Application.OnExcept e restaurar na hora de destruir o componente.

lembrando que o objeto Application fica na unit Forms.

Espero ter ajudado.

Thomaz_prg · Answer

Beleza Thiago... vou testar isso e posto pra dizer se deu certo....

F�rum Sobre Cria��o de Componentes #327767