Saber o nome do componente com o foco

[João Paulo Taraciuk]

Boa tarde

Estou fazendo uma rotina para capturar erros do sistema e mandar um e-mail com as informações de Form, tipo de erro, etc.

O que eu gostaria de saber é se tem como pegar o nome do componente onde ocorreu determinada exceção ou mesmo o nome do evento que ocasionou uma exceção, tentei colocar no OnMessage do ApplicationEvents o código Variavel:=ActiveControl.Name, mas retorna Access Violation.

Tem alguma forma de saber isso no Try ?

[Jhonas]

O que eu gostaria de saber é se tem como pegar o nome do componente onde ocorreu determinada exceção ou mesmo o nome do evento que ocasionou uma exceção

A captura de exceções é diferente da captura do nome do componente em foco

Faça um teste ... crie um form coloque um memo e outros componentes ... no evento OnEnter do Memo coloque o código baixo

procedure TForm1.Memo1Enter(Sender: TObject);
begin
   memo1.lines.add(TWinControl(Sender).Name);
end;

No evento onEnter de cada componente direcionar para o OnEnter do Memo1

OBS: teclando o TAB voce vera que o foco mudará para cada componente no form e o nome de cada componente que recebeu o foco aparecerá no Memo.

Quanto a captura de exceções, faça uma busca no forum

http://scriptbrasil.com.br/forum/index.php...te=exce%E7%F5es

abraço

[João Paulo Taraciuk]

Bom Jhonas, na verdade o que eu estou tentando fazer é o seguinte, coloquei um ApplicationEvents no form principal e no evento OnException dele coloquei o código:

procedure TForm1.ApEvPrincipalException(Sender: TObject; E: Exception);
begin
  try
    MensagemEmail:=TStringList.Create;
    MensagemEmail.Add('CLIENTE: [' + BuscaNomeCliente() +  ']');
    MensagemEmail.Add('APLICAÇÃO: [' + Application.Title +  ']');
    MensagemEmail.Add('LOCAL: FORM['+Screen.ActiveForm.Name+ '] CAPTION['+ Screen.ActiveForm.Caption +']');
    MensagemEmail.Add('DATA/HORA: ['+DateTimeToStr(Now)+']');
    MensagemEmail.Add('ERRO: ['+ E.Message+']');
    MensagemEmail.Add('------------------------------------------------------');
    MensagemEmail.Add('');
    MensagemEmail.Add('======================================================');
    EnviaEmail();
    Application.MessageBox('Ocorreu um erro, um e-mail será enviado ao suporte', 'INFORMAÇÃO', MB_ICONINFORMATION + MB_OK);
    except
  END;
end;

Então, ele pega o erro com o nome do form e me manda um e-mail, mas eu queria um pouco mais, gostaria que ele me trouxesse o nome do componente que disparou o exception de dentro do form, tentei colocar da forma que você sugeriu, mas me retorna o nome do form, que, tendo o nome do componente, eu vou tentar descobrir o evento realizado por ele que causou erro.

Por que dessa forma, com apenas esse código, eu capturo todos os erros da aplicacao, e o local exato de onde partiram.

Abraço!!!

[Jhonas]

Esse material vai lhe ajudar

http://www.activedelphi.com.br/forum/viewt...3951cde24e51d3c

http://www.activedelphi.com.br/print.php?sid=574

http://www.fundao.wiki.br/articles.asp?cod=56

abraço

[João Paulo Taraciuk]

Então, consegui pegar o nome do componente que realizou a última operacao, assim:

Screen.ActiveControl.Name

Agora, comeca a ficar mais divertido, eu gostaria de saber se tem como eu saber o nome do evento executado por determinado componente, algo como:

Se eu der um TAB num TEdit, de um ShowMessage com a mensagem : "OnExit".

Será que tem como fazer isso ?

[Jhonas]

Agora, comeca a ficar mais divertido, eu gostaria de saber se tem como eu saber o nome do evento executado por determinado componente, algo como:

Se eu der um TAB num TEdit, de um ShowMessage com a mensagem : "OnExit".

Será que tem como fazer isso ?

Ter como fazer tem, mas eu não colocaria isso em um sistema comercial.

Se quiser fazer isso como aprendizado acho válido, mas não use esse tipo de coisa em um sistema, ou se for preciso usar, faça-o somente se necessario, pois em um sistema bem estruturado não haverá a necessidade disso.

abraço