Boa Tarde,
estou fazendo um aplicativo simples, e estou utilizando o mesmo conceito que o
seu Luciano, e faço da seguinte mandei:
FormA : Cadastro de Produto
Tenho um Botão Localizar, que neste Botão eu crio uma variavel do tipo TForm(
vPesquisa : TFrmPesquisa ), onde dou o Application.CreateForm ... e dps dou o
ShowModal para chamar o meu form( FormB : Pesquisa )...
No FormB tenho um dbGrid e um Edit, que pesquiso pelo nome do produto, ou
qualquer outro tipo de pesquisa do meu sistema, no no DoubleClick do DbGrid, eu
carrego as informações da minha pesquisa para o FormA, ou FormC ... etc...
Sendo que eu sempre dou um CLOSE, para fechar o meu FormB e também no OnClose
do FormB eu faço: Action := caFree; ... para liberar o form da memoria.. e não
tive problema algum....
Qualquer dúvida é so perguntar...
Espero ter ajudado...
Abraços
Ribamar Sousa Filho
----- Mensagem original ----
De: Celio Ricardo <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 3 de Agosto de 2007 13:10:57
Assunto: [delphi-br] Re: Duvidas com Form´s
Nao entendi bem,
mas parece que voce esta fechando, mas nao liberando a variavel
Tela_Cadastro_ Credor da memoria
Tente:
Tela_Cadastro_ Credor := nil; //apos o close
E, no OnClose do form, colocar:
action: caFree;
Abraços e Sucesso!
Ricardo
--- Em [EMAIL PROTECTED] os.com.br, "l_o_angelini"
<luciano.angelini@ ...> escreveu
>
> Boa Tarde .....
> Estou tendo um pequeno problema ...
> Tenho no meu aplicativo dois form´s FrmCadCredores e
> FrmConsulta_ Credores, no form FrmConsulta_ Credores tenho um DBGrid,
> que nele ficam os resultaddos da busca com SQL, quando dou doism
> cliques no Registro no DBgrid... fecha o form FrmConsulta_ credores e
> traz pra o Form FrmCadCredores o Código do Credor pesquisado. No
> entanto vou precisar usar esse form FrmConsulta_ Credor em outra
parte
> do aplicativo, para não precisar toda vez criar o mesmo form.
> Tentei criar um variavel:
> Tela_Cadastro_ Credor : Tform
> Assim que clico no botão para abrir o form FrmConsulta_ credor ele
> carrega a variavel:
> Tela_Cadastro_ Credor : FrmCadCredores ;
> e mudei o DBGridDblClick do DBgrid:
>
> procedure TFrmConsulta_ Credores. DBGrid1DblClick( Sender: TObject);
> begin
> With FrmDm do
> if not CDSCredores. isempty then
> begin
> with Tela_Cadastro_ Credor.create( self) do
> begin
> Show ;
> Edit1.Text := DBGrid1.DataSource. DataSet.Fields[ 0].Text ;
> Edit1.setfocus ;
> FrmConsulta_ Credores. close ;
> end;
> end ;
> end;
>
> Acontece que da um erro dizendo que o Painel1 ja existe.. na
verdade
> o Painel1 tem nos dois form´s... troquei o nome dos dois passando
> para painel_Cadastro e painel_consulta. .. da o erro dizendo que o
> painel_Cadstro ja existe !!!
> Gostaria de saber onde possa estar acontecendo o erro e se alguem
tem
> uma outra solução !!!!
>
>
> Obrigado pela Antenção !!!
>
> Luciano
> Lupionópolis- Pr
>
Alertas do Yahoo! Mail em seu celular. Saiba mais em
http://br.mobile.yahoo.com/mailalertas/
[As partes desta mensagem que não continham texto foram removidas]
