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: delphi-br@yahoogrupos.com.br 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 www.geminisistemas.com.br 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?
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
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?
--- 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
www.geminisistemas.com.br
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?
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?
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?
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]
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
[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
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
www.geminisistemas.com.br
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?
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
www.geminisistemas.com.br
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?
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
