Alberto Mota Postado Agosto 17, 2010 Denunciar Share Postado Agosto 17, 2010 (editado) Prezados colegas, pesquisei muito na Web e não encontrei nada que solucionasse o meu problema.Coloquei em Available forms 1 dos forms da minha aplicação.o FrmQuitacaoAo chama-lo coloqueiif FrmQuitacao = NIL then //cria o form se ele não foi criado aindaApplication.CreateForm(TFrmQuitacao,FrmQuitacao); // cria o formFrmQuitacao.show;E ao executar o rave procedure TFrmQuitacao.BitBtn16Click(Sender: TObject);vardoc : integer;beginADOStoredProc9.close;ADOStoredProc9.Parameters.ParamByName('@ndoc').Value := StrToInt(txtNDoc.Text);ADOStoredProc9.open;ADOStoredProc9.active := true;//===============mensagens==============================================AdoMensagem.close;AdoMensagem.Parameters.ParamByName('A1').Value := StrToInt(edit9.Text);AdoMensagem.open;AdoMensagem.active := true;//======================================================================RvProject2.Execute;end;E abre 1 pagina em branco, com a quantidade de paginas 1 de 1Antes, coloquei em Available forms, e esse relatório abria normalmente.Fiz um teste e coloquei o form em Auto-Create e voltou a funcionar.Entretanto, preciso libera-lo da memória No evento ao fechar do formAction := caFree; // libera form da memóriaFrmQuitacao := NIL; // indica que foi liberadoO que esta acontecendo?Devo colocar todos os forms em Available forms?Desde já, obrigado. Editado Agosto 17, 2010 por Alberto Mota Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Alberto Mota Postado Agosto 18, 2010 Autor Denunciar Share Postado Agosto 18, 2010 Felizmente, consegui resolver meu problema.Tive que recriar o relatório.De alguma forma, algo o impedia de mostrar os dados. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Alberto Mota
Prezados colegas, pesquisei muito na Web e não encontrei nada que solucionasse
o meu problema.
Coloquei em Available forms 1 dos forms da minha aplicação.
o FrmQuitacao
Ao chama-lo coloquei
if FrmQuitacao = NIL then //cria o form se ele não foi criado ainda
Application.CreateForm(TFrmQuitacao,FrmQuitacao); // cria o form
FrmQuitacao.show;
E ao executar o rave
procedure TFrmQuitacao.BitBtn16Click(Sender: TObject);
var
doc : integer;
begin
ADOStoredProc9.close;
ADOStoredProc9.Parameters.ParamByName('@ndoc').Value := StrToInt(txtNDoc.Text);
ADOStoredProc9.open;
ADOStoredProc9.active := true;
//===============mensagens==============================================
AdoMensagem.close;
AdoMensagem.Parameters.ParamByName('A1').Value := StrToInt(edit9.Text);
AdoMensagem.open;
AdoMensagem.active := true;
//======================================================================
RvProject2.Execute;
end;
E abre 1 pagina em branco, com a quantidade de paginas 1 de 1
Antes, coloquei em Available forms, e esse relatório abria normalmente.
Fiz um teste e coloquei o form em Auto-Create e voltou a funcionar.
Entretanto, preciso libera-lo da memória
No evento ao fechar do form
Action := caFree; // libera form da memória
FrmQuitacao := NIL; // indica que foi liberado
O que esta acontecendo?
Devo colocar todos os forms em Available forms?
Desde já, obrigado.
Editado por Alberto MotaLink para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.