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: <delphi-br@yahoogrupos.com.br> 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 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 >>>>> Links do Yahoo! Grupos _______________________________________________________ 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
