Fórum Saber em qual panel está o edit? #290717
04/08/2005
0
Gostaria de criar uma função genérica onde eu quero saber em qual panel se encontra o edit, passando apenas esse edit como parâmetro da função.
Alguém saberia como eu faria isso?
Obrigado!
Alguém saberia como eu faria isso?
Obrigado!
Kenji_rh
Curtir tópico
+ 0
Responder
Posts
04/08/2005
Marcosseki@bol.com.br
Veja o codigo da funcao:
Function Tform1.GetPanel(AEdit: TEdit): Tpanel;
begin
if Aedit.Parent is Tpanel then
result := TPanel(Aedit.parent);
end;
Para utilizar a funcao:
Coloque no evento onclick de um botao o codigo:
showmessage(Tpanel(GetPanel(Edit3)).Caption);
Neste caso o showmessage ira mostrar o valor da propriedade caption, mas voce podera pegar qualquer outra informacao por exemplo o nome do panel, para isto troque o caption por name.
Espero ter ajudado
Function Tform1.GetPanel(AEdit: TEdit): Tpanel;
begin
if Aedit.Parent is Tpanel then
result := TPanel(Aedit.parent);
end;
Para utilizar a funcao:
Coloque no evento onclick de um botao o codigo:
showmessage(Tpanel(GetPanel(Edit3)).Caption);
Neste caso o showmessage ira mostrar o valor da propriedade caption, mas voce podera pegar qualquer outra informacao por exemplo o nome do panel, para isto troque o caption por name.
Espero ter ajudado
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)