Re: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
Declara a procedure como publica no pai. Pronto.
Talvez seja interessante vc pegar alguma material sobre programação
orientação a objetos (no delphi) antes de fazer algo "grande" ou que faça
muito uso da orientação. Você pode se complicar mais tarde
[]'s
Francisco Thiago de Almeida
Enter & Plug Informática
Divisão: Desenvolvimento e Banco de dados
Franca / SP
msn: [EMAIL PROTECTED]
http://enterplug.no-ip.com/sistema_ctrc/
- Original Message -
From: "Fellipe Henrique" <[EMAIL PROTECTED]>
To:
Sent: Friday, July 14, 2006 1:49 PM
Subject: Re: [delphi-br] Como executar uma procedure de um Form Pai usando
herança?
Ola Jose, o que eu quero na verdade eh somente por la no filho uma
referencia pra procedure do pai, pra eu poder fazer isso
Filho.Verifica;
Sendo que a procedure esta implementada no pai... somente isso...
[]s
Em 14/07/06, José Henrique (Zote) <[EMAIL PROTECTED]> escreveu:
>
> Ve se é isso que você precisa:
>
>
>
> Type TformPai = class(TForm)
>
> ...
>
> Protected ou public
>
> Procedure meuMetodo;
>
> End;
>
>
>
> TformFilho = class(TformPai)
>
> ...
>
> Protected ou public // igual do pai
>
> Procedure meuMetodo; override;
>
> End;
>
>
>
> Procedure TformPai.meuMetodo;
>
> Begin
>
> ShowMessage('Metodo do Pai');
>
> End;
>
>
>
> Procedure TformFilho.meuMetodo/
>
> Begin
>
> Inherited; // Mostra a mensagem do pai
>
> ShowMessage('Metodo do Filho');
>
> End;
>
>
>
> --
>
> José Henrique (Zote)
>
> From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> On
> Behalf Of Fellipe Henrique
> Sent: sexta-feira, 14 de julho de 2006 09:43
>
> To: delphi-br@yahoogrupos.com.br
> Subject: Re: [delphi-br] Como executar uma procedure de um Form Pai usando
>
> herança?
>
>
>
> Olá amigos, continua na mesma...
>
> coloquei lá no public:
>
> procedure Verifica; virtual;
>
>
> e lá no meu form filho, coloquei tambem no public
>
> procedure Verifica; override;
>
> e nada... mesmo erro..
>
> []s
>
>
> Em 13/07/06, Eduardo <[EMAIL PROTECTED]> escreveu:
> >
> >
> > No pai vc tem q declarar a procedure ( metodo ) como PUBLIC ou
> > PROTECTED(*) e no filho é só chamar o metodo ( procedure ou function )
> ...
> >
> >
> > Eduardo
> > (*) Para sub-escrever este metodo vc tera que declarar como virtual ou
> > abstract no pai e no filho override normal.
> >
> > - Original Message -
> > From: Fellipe Henrique
> > To: delphi-br@yahoogrupos.com.br
> > Sent: Thursday, July 13, 2006 3:47 PM
> > Subject: [delphi-br] Como executar uma procedure de um Form Pai usando
> > herança?
> >
> >
> > Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
> > herdados deste form... e neste form, na área public dele tem uma
> > procedure
> > Verifica;
> >
> > Pois bem, como eu executo esta procedure através do meu form...
> exemplo
> >
> > procedure Verifica
> > begin
> > if EdCodigo.Text = 'A' then ShowMessage('ok');
> > end;
> >
> > fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic...
> e
> > uso
> > este codigo pra executar minha procedure:
> > (FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
> > TFrmBasic).Verifica;
> >
> > Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
> > FrmBasic, e nao no meu FrmTeste...
> >
> > Alguém sabe o que posso fazer pra arrumar isso?
> >
> > Desde já agradeço.
> >
> > --
> > _
> > Fellipe Henrique
> > [EMAIL PROTECTED]
> >
> > Borland Developer Studio 2006 Certified
> >
> > "Venham até a borda, ele disse.
> > Eles disseram: Nós temos medo.
> > Venham até a borda, ele insistiu.
> > Eles foram, Ele os empurrou...
> > E eles voaram."
> > (Guillaume Apollinaire)
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> >
>
>
>
> --
> _
> Fellipe Henrique
> [EMAIL PROTECTED]
>
> Borland Developer Studio 2006 Certified
>
> "Venham até a borda, ele disse.
> Eles disseram: Nós temos medo.
> Venham até a borda, ele insistiu.
> Eles foram, Ele os empurrou...
> E eles vo
Re: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
Você coloca antes da definição (Se procedure ou Function) a palavras class... class procedure blablabla; class function blebleble; Só lembrando que os métodos estaticos não precisam de que a classe esteja instanciada para funcionar. Mais uma coisa. Você pode usar a palavra chave "inherited" dentro de um método override para chamar a sua implementação na classe pai. procedure Verifica; begin inherited; Codigo; end; Faria com que o código da classe pai fosse executado e somente depois o seu código. Mais uma coisa. Se você não quer que a procedure Verifica fique visível para os outros objetos, mas quer que ela seja visível (e talvez reimplementada) nas classes filhas, escreva o cabeçalho dentro da sessão protected (O delphi não cria sozinho, vc tem que fazer) e vc vai conseguir o resultado esperado. type TObjeto = class(TObjetoPai) private //métodos privados. Somente esta classe vai vê-los protected // Será visto por descendentes apenas. public // Tá todo mundo vendo published // Até o object inspector vê aqui. end; Só queria aproveitar o gancho. Quando eu escrevo Forms padrão, as propriedades que crio em published não aparecem no object Inspector quando crio o form Filho. Tem alguma forma de fazer isso??? Obrigado Francisco Thiago de Almeida Enter & Plug Informática Divisão: Desenvolvimento e Banco de dados Franca / SP msn: [EMAIL PROTECTED] http://enterplug.no-ip.com/sistema_ctrc/ - Original Message - From: "Welson Avelar" <[EMAIL PROTECTED]> To: Sent: Friday, July 14, 2006 9:45 AM Subject: Re: [delphi-br] Como executar uma procedure de um Form Pai usando herança? > > [Welson] Só um adendo: como que declara método/atributo ESTÁTICO no > Delphi!? > > = > "O que me preocupa não é o grito dos maus. É o silêncio dos bons." > Martin Luther King. > = > Welson de Avelar Soares Filho > Analista/Programador Delphi > Gemini Sistemas > > Juiz de Fora - Minas Gerais > = ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RE: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
Talves entao...
TformPai(self).verifica; // Onde self é o form filho.
--
José Henrique (Zote)
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On
Behalf Of Fellipe Henrique
Sent: sexta-feira, 14 de julho de 2006 13:50
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Como executar uma procedure de um Form Pai usando
herança?
Ola Jose, o que eu quero na verdade eh somente por la no filho uma
referencia pra procedure do pai, pra eu poder fazer isso
Filho.Verifica;
Sendo que a procedure esta implementada no pai... somente isso...
[]s
Em 14/07/06, José Henrique (Zote) <[EMAIL PROTECTED]> escreveu:
>
> Ve se é isso que você precisa:
>
>
>
> Type TformPai = class(TForm)
>
> ...
>
> Protected ou public
>
> Procedure meuMetodo;
>
> End;
>
>
>
> TformFilho = class(TformPai)
>
> ...
>
> Protected ou public // igual do pai
>
> Procedure meuMetodo; override;
>
> End;
>
>
>
> Procedure TformPai.meuMetodo;
>
> Begin
>
> ShowMessage('Metodo do Pai');
>
> End;
>
>
>
> Procedure TformFilho.meuMetodo/
>
> Begin
>
> Inherited; // Mostra a mensagem do pai
>
> ShowMessage('Metodo do Filho');
>
> End;
>
>
>
> --
>
> José Henrique (Zote)
>
> From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> On
> Behalf Of Fellipe Henrique
> Sent: sexta-feira, 14 de julho de 2006 09:43
>
> To: delphi-br@yahoogrupos.com.br
> Subject: Re: [delphi-br] Como executar uma procedure de um Form Pai usando
>
> herança?
>
>
>
> Olá amigos, continua na mesma...
>
> coloquei lá no public:
>
> procedure Verifica; virtual;
>
>
> e lá no meu form filho, coloquei tambem no public
>
> procedure Verifica; override;
>
> e nada... mesmo erro..
>
> []s
>
>
> Em 13/07/06, Eduardo <[EMAIL PROTECTED]> escreveu:
> >
> >
> > No pai vc tem q declarar a procedure ( metodo ) como PUBLIC ou
> > PROTECTED(*) e no filho é só chamar o metodo ( procedure ou function )
> ...
> >
> >
> > Eduardo
> > (*) Para sub-escrever este metodo vc tera que declarar como virtual ou
> > abstract no pai e no filho override normal.
> >
> > - Original Message -
> > From: Fellipe Henrique
> > To: delphi-br@yahoogrupos.com.br
> > Sent: Thursday, July 13, 2006 3:47 PM
> > Subject: [delphi-br] Como executar uma procedure de um Form Pai usando
> > herança?
> >
> >
> > Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
> > herdados deste form... e neste form, na área public dele tem uma
> > procedure
> > Verifica;
> >
> > Pois bem, como eu executo esta procedure através do meu form...
> exemplo
> >
> > procedure Verifica
> > begin
> > if EdCodigo.Text = 'A' then ShowMessage('ok');
> > end;
> >
> > fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic...
> e
> > uso
> > este codigo pra executar minha procedure:
> > (FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
> > TFrmBasic).Verifica;
> >
> > Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
> > FrmBasic, e nao no meu FrmTeste...
> >
> > Alguém sabe o que posso fazer pra arrumar isso?
> >
> > Desde já agradeço.
> >
> > --
> > _
> > Fellipe Henrique
> > [EMAIL PROTECTED]
> >
> > Borland Developer Studio 2006 Certified
> >
> > "Venham até a borda, ele disse.
> > Eles disseram: Nós temos medo.
> > Venham até a borda, ele insistiu.
> > Eles foram, Ele os empurrou...
> > E eles voaram."
> > (Guillaume Apollinaire)
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> >
>
>
>
> --
> _
> Fellipe Henrique
> [EMAIL PROTECTED]
>
> Borland Developer Studio 2006 Certified
>
> "Venham até a borda, ele disse.
> Eles disseram: Nós temos medo.
> Venham até a borda, ele insistiu.
> Eles foram, Ele os empurrou...
> E eles voaram."
> (Guillaume Apollinaire)
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Re: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
Ola Jose, o que eu quero na verdade eh somente por la no filho uma
referencia pra procedure do pai, pra eu poder fazer isso
Filho.Verifica;
Sendo que a procedure esta implementada no pai... somente isso...
[]s
Em 14/07/06, José Henrique (Zote) <[EMAIL PROTECTED]> escreveu:
>
> Ve se é isso que você precisa:
>
>
>
> Type TformPai = class(TForm)
>
> ...
>
> Protected ou public
>
> Procedure meuMetodo;
>
> End;
>
>
>
> TformFilho = class(TformPai)
>
> ...
>
> Protected ou public // igual do pai
>
> Procedure meuMetodo; override;
>
> End;
>
>
>
> Procedure TformPai.meuMetodo;
>
> Begin
>
> ShowMessage('Metodo do Pai');
>
> End;
>
>
>
> Procedure TformFilho.meuMetodo/
>
> Begin
>
> Inherited; // Mostra a mensagem do pai
>
> ShowMessage('Metodo do Filho');
>
> End;
>
>
>
> --
>
> José Henrique (Zote)
>
> From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> On
> Behalf Of Fellipe Henrique
> Sent: sexta-feira, 14 de julho de 2006 09:43
>
> To: delphi-br@yahoogrupos.com.br
> Subject: Re: [delphi-br] Como executar uma procedure de um Form Pai usando
>
> herança?
>
>
>
> Olá amigos, continua na mesma...
>
> coloquei lá no public:
>
> procedure Verifica; virtual;
>
>
> e lá no meu form filho, coloquei tambem no public
>
> procedure Verifica; override;
>
> e nada... mesmo erro..
>
> []s
>
>
> Em 13/07/06, Eduardo <[EMAIL PROTECTED]> escreveu:
> >
> >
> > No pai vc tem q declarar a procedure ( metodo ) como PUBLIC ou
> > PROTECTED(*) e no filho é só chamar o metodo ( procedure ou function )
> ...
> >
> >
> > Eduardo
> > (*) Para sub-escrever este metodo vc tera que declarar como virtual ou
> > abstract no pai e no filho override normal.
> >
> > - Original Message -
> > From: Fellipe Henrique
> > To: delphi-br@yahoogrupos.com.br
> > Sent: Thursday, July 13, 2006 3:47 PM
> > Subject: [delphi-br] Como executar uma procedure de um Form Pai usando
> > herança?
> >
> >
> > Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
> > herdados deste form... e neste form, na área public dele tem uma
> > procedure
> > Verifica;
> >
> > Pois bem, como eu executo esta procedure através do meu form...
> exemplo
> >
> > procedure Verifica
> > begin
> > if EdCodigo.Text = 'A' then ShowMessage('ok');
> > end;
> >
> > fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic...
> e
> > uso
> > este codigo pra executar minha procedure:
> > (FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
> > TFrmBasic).Verifica;
> >
> > Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
> > FrmBasic, e nao no meu FrmTeste...
> >
> > Alguém sabe o que posso fazer pra arrumar isso?
> >
> > Desde já agradeço.
> >
> > --
> > _
> > Fellipe Henrique
> > [EMAIL PROTECTED]
> >
> > Borland Developer Studio 2006 Certified
> >
> > "Venham até a borda, ele disse.
> > Eles disseram: Nós temos medo.
> > Venham até a borda, ele insistiu.
> > Eles foram, Ele os empurrou...
> > E eles voaram."
> > (Guillaume Apollinaire)
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> >
>
>
>
> --
> _
> Fellipe Henrique
> [EMAIL PROTECTED]
>
> Borland Developer Studio 2006 Certified
>
> "Venham até a borda, ele disse.
> Eles disseram: Nós temos medo.
> Venham até a borda, ele insistiu.
> Eles foram, Ele os empurrou...
> E eles voaram."
> (Guillaume Apollinaire)
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
"Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram."
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
RE: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
Ve se é isso que você precisa:
Type TformPai = class(TForm)
...
Protected ou public
Procedure meuMetodo;
End;
TformFilho = class(TformPai)
...
Protected ou public // igual do pai
Procedure meuMetodo; override;
End;
Procedure TformPai.meuMetodo;
Begin
ShowMessage(Metodo do Pai);
End;
Procedure TformFilho.meuMetodo/
Begin
Inherited; // Mostra a mensagem do pai
ShowMessage(Metodo do Filho);
End;
--
José Henrique (Zote)
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On
Behalf Of Fellipe Henrique
Sent: sexta-feira, 14 de julho de 2006 09:43
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Como executar uma procedure de um Form Pai usando
herança?
Olá amigos, continua na mesma...
coloquei lá no public:
procedure Verifica; virtual;
e lá no meu form filho, coloquei tambem no public
procedure Verifica; override;
e nada... mesmo erro..
[]s
Em 13/07/06, Eduardo <[EMAIL PROTECTED]> escreveu:
>
>
> No pai vc tem q declarar a procedure ( metodo ) como PUBLIC ou
> PROTECTED(*) e no filho é só chamar o metodo ( procedure ou function ) ...
>
>
> Eduardo
> (*) Para sub-escrever este metodo vc tera que declarar como virtual ou
> abstract no pai e no filho override normal.
>
> - Original Message -
> From: Fellipe Henrique
> To: delphi-br@yahoogrupos.com.br
> Sent: Thursday, July 13, 2006 3:47 PM
> Subject: [delphi-br] Como executar uma procedure de um Form Pai usando
> herança?
>
>
> Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
> herdados deste form... e neste form, na área public dele tem uma
> procedure
> Verifica;
>
> Pois bem, como eu executo esta procedure através do meu form... exemplo
>
> procedure Verifica
> begin
> if EdCodigo.Text = 'A' then ShowMessage('ok');
> end;
>
> fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic... e
> uso
> este codigo pra executar minha procedure:
> (FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
> TFrmBasic).Verifica;
>
> Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
> FrmBasic, e nao no meu FrmTeste...
>
> Alguém sabe o que posso fazer pra arrumar isso?
>
> Desde já agradeço.
>
> --
> _
> Fellipe Henrique
> [EMAIL PROTECTED]
>
> Borland Developer Studio 2006 Certified
>
> "Venham até a borda, ele disse.
> Eles disseram: Nós temos medo.
> Venham até a borda, ele insistiu.
> Eles foram, Ele os empurrou...
> E eles voaram."
> (Guillaume Apollinaire)
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
"Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram."
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
--- Welson Avelar escreveu:
> --- Fellipe Henrique escreveu:
> > Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
> > herdados deste form... e neste form, na área public dele tem uma procedure
> > Verifica;
> >
> > Pois bem, como eu executo esta procedure através do meu form... exemplo
> >
> > procedure Verifica
> > begin
> > if EdCodigo.Text = 'A' then ShowMessage('ok');
> > end;
> >
> > fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic... e uso
> > este codigo pra executar minha procedure:
> > (FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
> > TFrmBasic).Verifica;
> >
> > Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
> > FrmBasic, e nao no meu FrmTeste...
> >
> > Alguém sabe o que posso fazer pra arrumar isso?
> >
> > Desde já agradeço.
> [--x--]
>
> [Welson] Você cria somente a assinatura do método no form base, da seguinte
> forma:
> procedure Verifica(PARAMETROS); virtual;
>
> E na classe filho, você colocará:
> procedure Verifica(PARAMETROS); override;
>
> E implementa o método na classe filho.
> Se entendi bem a sua dúvida, deve ser somente isso.
>
> []s.
[--x--]
[Welson] Só um adendo: como que declara método/atributo ESTÁTICO no Delphi!?
=
"O que me preocupa não é o grito dos maus. É o silêncio dos bons."
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
Juiz de Fora - Minas Gerais
=
___
Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar
seu conhecimento? Experimente o Yahoo! Respostas !
http://br.answers.yahoo.com/
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
Olá amigos, continua na mesma...
coloquei lá no public:
procedure Verifica; virtual;
e lá no meu form filho, coloquei tambem no public
procedure Verifica; override;
e nada... mesmo erro..
[]s
Em 13/07/06, Eduardo <[EMAIL PROTECTED]> escreveu:
>
>
> No pai vc tem q declarar a procedure ( metodo ) como PUBLIC ou
> PROTECTED(*) e no filho é só chamar o metodo ( procedure ou function ) ...
>
>
> Eduardo
> (*) Para sub-escrever este metodo vc tera que declarar como virtual ou
> abstract no pai e no filho override normal.
>
> - Original Message -
> From: Fellipe Henrique
> To: delphi-br@yahoogrupos.com.br
> Sent: Thursday, July 13, 2006 3:47 PM
> Subject: [delphi-br] Como executar uma procedure de um Form Pai usando
> herança?
>
>
> Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
> herdados deste form... e neste form, na área public dele tem uma
> procedure
> Verifica;
>
> Pois bem, como eu executo esta procedure através do meu form... exemplo
>
> procedure Verifica
> begin
> if EdCodigo.Text = 'A' then ShowMessage('ok');
> end;
>
> fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic... e
> uso
> este codigo pra executar minha procedure:
> (FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
> TFrmBasic).Verifica;
>
> Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
> FrmBasic, e nao no meu FrmTeste...
>
> Alguém sabe o que posso fazer pra arrumar isso?
>
> Desde já agradeço.
>
> --
> _
> Fellipe Henrique
> [EMAIL PROTECTED]
>
> Borland Developer Studio 2006 Certified
>
> "Venham até a borda, ele disse.
> Eles disseram: Nós temos medo.
> Venham até a borda, ele insistiu.
> Eles foram, Ele os empurrou...
> E eles voaram."
> (Guillaume Apollinaire)
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
"Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram."
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
No pai vc tem q declarar a procedure ( metodo ) como PUBLIC ou PROTECTED(*) e
no filho é só chamar o metodo ( procedure ou function ) ...
Eduardo
(*) Para sub-escrever este metodo vc tera que declarar como virtual ou abstract
no pai e no filho override normal.
- Original Message -
From: Fellipe Henrique
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, July 13, 2006 3:47 PM
Subject: [delphi-br] Como executar uma procedure de um Form Pai usando
herança?
Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
herdados deste form... e neste form, na área public dele tem uma procedure
Verifica;
Pois bem, como eu executo esta procedure através do meu form... exemplo
procedure Verifica
begin
if EdCodigo.Text = 'A' then ShowMessage('ok');
end;
fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic... e uso
este codigo pra executar minha procedure:
(FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
TFrmBasic).Verifica;
Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
FrmBasic, e nao no meu FrmTeste...
Alguém sabe o que posso fazer pra arrumar isso?
Desde já agradeço.
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
"Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram."
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
Ola amigo, eu tentei mas deu erro:
[Pascal Error] UTeste.pas(43): E2065 Unsatisfied forward or external
declaration: 'TFrmTeste.Verifica'
[]s
Fellipe H.
Em 13/07/06, Welson Avelar <[EMAIL PROTECTED]> escreveu:
>
> --- Fellipe Henrique escreveu:
>
> > Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
> > herdados deste form... e neste form, na área public dele tem uma
> procedure
> > Verifica;
> >
> > Pois bem, como eu executo esta procedure através do meu form... exemplo
> >
> > procedure Verifica
> > begin
> > if EdCodigo.Text = 'A' then ShowMessage('ok');
> > end;
> >
> > fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic... e
> uso
> > este codigo pra executar minha procedure:
> > (FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
> > TFrmBasic).Verifica;
> >
> > Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
> > FrmBasic, e nao no meu FrmTeste...
> >
> > Alguém sabe o que posso fazer pra arrumar isso?
> >
> > Desde já agradeço.
> [--x--]
>
> [Welson] Você cria somente a assinatura do método no form base, da
> seguinte
> forma:
> procedure Verifica(PARAMETROS); virtual;
>
> E na classe filho, você colocará:
> procedure Verifica(PARAMETROS); override;
>
> E implementa o método na classe filho.
> Se entendi bem a sua dúvida, deve ser somente isso.
>
> []s.
>
> =
> "O que me preocupa não é o grito dos maus. É o silêncio dos bons."
> Martin Luther King.
> =
> Welson de Avelar Soares Filho
> Analista/Programador Delphi
> Gemini Sistemas
>
> Juiz de Fora - Minas Gerais
> =
>
>
>
> ___
> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
> Registre seu aparelho agora!
> http://br.mobile.yahoo.com/mailalertas/
>
>
>
>
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
"Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram."
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Como executar uma procedure de um Form Pai usando herança?
--- Fellipe Henrique escreveu:
> Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
> herdados deste form... e neste form, na área public dele tem uma procedure
> Verifica;
>
> Pois bem, como eu executo esta procedure através do meu form... exemplo
>
> procedure Verifica
> begin
> if EdCodigo.Text = 'A' then ShowMessage('ok');
> end;
>
> fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic... e uso
> este codigo pra executar minha procedure:
> (FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
> TFrmBasic).Verifica;
>
> Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
> FrmBasic, e nao no meu FrmTeste...
>
> Alguém sabe o que posso fazer pra arrumar isso?
>
> Desde já agradeço.
[--x--]
[Welson] Você cria somente a assinatura do método no form base, da seguinte
forma:
procedure Verifica(PARAMETROS); virtual;
E na classe filho, você colocará:
procedure Verifica(PARAMETROS); override;
E implementa o método na classe filho.
Se entendi bem a sua dúvida, deve ser somente isso.
[]s.
=
"O que me preocupa não é o grito dos maus. É o silêncio dos bons."
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
Juiz de Fora - Minas Gerais
=
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Como executar uma procedure de um Form Pai usando herança?
Olá, tenho o seguinte form: TFrmBasic, onde todos meus cadastros são
herdados deste form... e neste form, na área public dele tem uma procedure
Verifica;
Pois bem, como eu executo esta procedure através do meu form... exemplo
procedure Verifica
begin
if EdCodigo.Text = 'A' then ShowMessage('ok');
end;
fui lá e criei um Form, chamado FrmTeste, baseado no meu FrmBasic... e uso
este codigo pra executar minha procedure:
(FrmPrincipal.PgCtrlPrincipal.ActivePage.Components[0] as
TFrmBasic).Verifica;
Pois bem, executa, mas o EdCodigo.Text vem com o que esta escrito no
FrmBasic, e nao no meu FrmTeste...
Alguém sabe o que posso fazer pra arrumar isso?
Desde já agradeço.
--
_
Fellipe Henrique
[EMAIL PROTECTED]
Borland Developer Studio 2006 Certified
"Venham até a borda, ele disse.
Eles disseram: Nós temos medo.
Venham até a borda, ele insistiu.
Eles foram, Ele os empurrou...
E eles voaram."
(Guillaume Apollinaire)
[As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
