Ribamar Souza e Ricardo ....
eu mudei e ficou assim:
no form FrmCadCredores:
Cadastro_Credor : Tform ;
e no form FrmConsulta_Credores ficou assim
procedure TFrmConsulta_Credores.DBGrid1DblClick(Sender: TObject);
begin
With FrmDm do
if not CDSCredores.isempty then
begin
with Cadastro_Credor do
begin
edit1.text := DBGrid1.DataSource.DataSet.Fields[0].Text ;
Edit1.setfocus ;
FrmConsulta_Credores.close ;
Cadastro_Credor := nil ;
show
end ;
end;
end;
só que quando os dois cliques no DBGrid para selecionar o Registro da
esse erro:
Access Violation At Address 0047C806 in module 'SisRecibo.exe'. Read of
address 000002F4
Desde ja agreço a atenção de vcs !!!!!
Ribamar Sousa escreveu:
>
> 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]
> <mailto:ricknetbr%40yahoo.com.br>>
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.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/
> <http://br.mobile.yahoo.com/mailalertas/>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
