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
