Não vai funcionar. Você está intuitivamente tentando implementar
polimorfismo mas, na prática, está apenas criando formulários com os
mesmos membros- o que não caracteriza polimorfismo. A forma certa de
fazer o que você quer é a seguinte:
1) Crie um formulário, TFormModelo, com os componentes visuais que ambos
MeuForm1 e MeuForm2 precisam ter;
2) Crie TMeuForm1 e TMeuForm2 através de *HERANÇA VISUAL*. Se não sabe
como fazer isso, vá em Arquivo | Novo | Guia do Seu Projeto e selecione
o formulário FormModelo como o ancestral do seu novo form. Ah! E leia
nos documentos do Delphi (help online e manuais) um pouco sobre o
assunto. Declare também o seguinte:
TFormModeloClass: class of TFormModelo;
3) Na chamada a MeuForm1 e MeuForm2, basta fazer o seguinte:
procedure ChamaFormModelo(AClass: TFormModeloClass);
var
f: TFormModelo;
begin
f := AClass.Create(nil);
try
// faça o que for preciso com os componentes visuais
// comuns aos formulários
f.ShowModal;
finally
f.Free;
end;
end;
Se não usar polimorfismo, terá que usar coisas como FindComponent e,
possivelmente, outras coisinhas a mais.
Cordialmente,
Demian Lessa
Salvador - Brasil
Filipe wrote:
> Demian, MeuForm é realmente a Instância do Formulário.
>
> Tenho uma tela de consulta, que está programada para ficar referenciando ao
> Form1... mas gostaria de abri-la com o form 2....
>
> os 2 naum podem descender um do outro, fique claro isso...
>
> entaum, os componentes deste form 1 que a tela de consulta utiliza, coloquei
> com os mesmos nomes no form 2...
>
> Apenas, ao criar a tela de consulta pego o ponteiro(do tipo form 1) e aponto
> para o form2... deu pra sacar?
>
>
> aí naum preciso reescrever todo o código...
>
>
>
> flw.
--
<<<<< 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] ou [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
