Array
(
)

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

Adriano Santos
   - 27 fev 2006

Galera,

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

#Código


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


Ele vai mostra algo como:

#Código

´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:

#Código

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


Valeu


Adriano Santos
   - 27 fev 2006

Só uma gafe:

´Erro gerado pelo objeto : ´ + TComponent(Sender).Name


Adriano Santos
   - 27 fev 2006

Consegui galera,

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

etc

vlw