Caros Amigos.... veja como ficou :
no form FrmCadCredores:
var
FrmCadCredores: TFrmCadCredores ;
Transacao : TTransactionDesc ;
Escolha : Char ;
somar_codigo : double ;
*vform : TFrmCadCredores ;*
implementation
para chamar o Form FrmConsulta_Credores:
procedure TFrmCadCredores.SBPesquisaClick(Sender: TObject);
begin
if FrmConsulta_Credores = nil then
application.createform(TFrmConsulta_Credores,FrmConsulta_Credores) ;
FrmConsulta_Credores.showmodal ;
Freeandnil(FrmConsulta_Credores)
end;
e no Form Consulta_Credor no duplo clique no DBGrid:
procedure TFrmConsulta_Credores.DBGrid1DblClick(Sender: TObject);
begin
With FrmDm do
if not CDSCredores.isempty then
begin
with vform do
begin
Edit1.text := DBGrid1.DataSource.DataSet.Fields[0].Text ;
Edit1.setfocus ;
show ;
FrmConsulta_Credores.close ;
vform := nil ;
end ;
end;
end;
Mas continua dando o mesmo erro !!!!!
Se Possivel gostaria que me envia-se o seu script do seu aplicativo
Ribamar Sousa escreveu:
>
> Luciano... a sua variavel está declarada errada,
> quando eu disse que é do tipo TForm, é do tipo TForm que é o nome do
> Form da sua aplicação...
> Exemplo:
> vForm : TFrmCadCredores;
> vForm1 : TFrmConsulta;
>
> então...vc colocar "T" + NOME DO SEU FORM.
>
> Espero ter ajudado.
>
> Abraços
>
> ----- Mensagem original ----
> De: Luciano Angelini <[EMAIL PROTECTED]
> <mailto:luciano.angelini%40uol.com.br>>
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Enviadas: Segunda-feira, 6 de Agosto de 2007 9:54:24
> Assunto: Re: Res: [delphi-br] Re: Duvidas com Form´s
>
> 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] com.br
> > <mailto:ricknetbr% 40yahoo.com. br>>
> > Para: [EMAIL PROTECTED] os.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]
> >
> >
>
> 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]
>
>
