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

Delphi

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

Adriano Santos

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

27/02/2006

Só uma gafe:

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


GOSTEI 0
Adriano Santos

Adriano Santos

27/02/2006

Consegui galera,

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

etc

vlw


GOSTEI 0
POSTAR