Saber em qual panel está o edit?
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
Curtidas 0
Respostas
Marcosseki@bol.com.br
04/08/2005
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
GOSTEI 0