EAccessViolation Preciso de Ajuda

Delphi

05/12/2003

Criei um tela de consulta e nesta mesma tela tem um botão Imprimir no evento OnClick tem o seguinte código:

with TFRelPlano.Create(Self) do
begin
QRelPlano.Preview;
Release;
end;
***---*****
Continua
ao clicar no botão é inicializado um relatório até aqui ocorre tudo bem o problema é quando eu quero que fique só o relatório aberto eu fecho a tela onde ele foi inicializado o relatório continua aberto mas na hora de fechar o mesmo dispara um exception do tipo EAccessViolation quando ele passa pela rotina ´Release´. Mas quando eu não fecho a tela onde ele foi inicializado ocorre tudo bem no fechamento do Relatório

Preciso de Ajudo
OBrigado
Emerson


Emersonsj

Emersonsj

Curtidas 0

Respostas

Rafael Heise

Rafael Heise

05/12/2003

Eu acho que ele está se perdendo por causa do pai que não existe mais...
pode ser algo assim por tar relacionado ao Release. Apesar de ser mais aconselhável usar Release, troque seu código para este:

Application.CreateForm(TFRelPlano,FRelPlano);
FRelPlano.QRelPlano.Preview; 
FRelPlano.Free;


ou ainda

with TFRelPlano.Create(Application) do 
begin 
  QRelPlano.Preview; 
  Free; 
end;


ou

with TFRelPlano.Create(Application) do 
begin 
  QRelPlano.Preview; 
  Release; 
end;


beleza?
valeu


GOSTEI 0
POSTAR