Fechar QuickReport

Delphi

19/11/2004

Pessoal, por favor, como faço para fechar um formulário com QuickReport? Qdo o usuário fecha o relatório depois de dar um preview, ele exibe a tela de layout do formulário (aquela na qual desenhamos o relatório). Como faço para fechar diretamente esta tela? Estou usando uma interface MDI.
Para exibir o relatório estou usando:
frmRelMatConsumo := TfrmRelMatConsumo.Create(Self);

Qdo o formulário com o relatório é criado:

procedure TfrmRelMatConsumo.FormCreate(Sender: TObject);
begin
dmConsult.dbConsultorio.Open;
dmConsult.qryRelMatConsumo.Open;

qrpMatConsumo.Preview;
end;


Qdo ele é fechado:

procedure TfrmRelMatConsumo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dmConsult.qryRelMatConsumo.Close;
dmConsult.dbConsultorio.Close;

frmRelMatConsumo.qrpMatConsumo.Free;
frmRelMatConsumo.Free;
Action := caFree;
end;


Obrigado.


Gleison_gomes

Gleison_gomes

Curtidas 0

Respostas

Thomaz_prg

Thomaz_prg

19/11/2004

Tenta fazer o seguinte:

procedure TfrmRelMatConsumo.FormCreate(Sender: TObject);
begin
dmConsult.dbConsultorio.Open;
dmConsult.qryRelMatConsumo.Open;

qrpMatConsumo.Preview;
close;
end;


GOSTEI 0
Gleison_gomes

Gleison_gomes

19/11/2004

Muito obrigado!!!
Deu certo!


GOSTEI 0
POSTAR