Saber o form onde está o comp, mesmo se tiver num container

27/02/2006

Galera,

Não lembro como faz. Preciso pegar o nome do form (ou sua classe) do componente atual. Estou fazendo algo como:

´Erro gerado pelo objeto : ´ + Sender.Name;
´Erro gerado no Form : ´ + TForm(Sender).Parent.Name;


Ele vai mostra algo como:

´Erro gerado pelo objeto : ´ + edtMeuComp;
´Erro gerado no Form : ´ + frmClientes;


Mas não mostra o nome correto do form se edtMeuComp estiver dentro de um container, como um panel por exemplo:

´Erro gerado pelo objeto : ´ + edtMeuComp;
´Erro gerado no Form : ´ + TPanel;


Valeu


Adriano Santos

Respostas

27/02/2006

Adriano Santos

Só uma gafe:

´Erro gerado pelo objeto : ´ + [b:10a345f3a8]TComponent(Sender)[/b:10a345f3a8].Name


Responder Citar

27/02/2006

Adriano Santos

Consegui galera,

TComponent(Sender).Owner.Name (Nome do form)
TComponent(Sender).Owner.ClassName (Casse do Form)

etc

vlw


Responder Citar