Fechar QuickReport
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.
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
Curtidas 0
Respostas
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;
procedure TfrmRelMatConsumo.FormCreate(Sender: TObject);
begin
dmConsult.dbConsultorio.Open;
dmConsult.qryRelMatConsumo.Open;
qrpMatConsumo.Preview;
close;
end;
GOSTEI 0
Gleison_gomes
19/11/2004
Muito obrigado!!!
Deu certo!
Deu certo!
GOSTEI 0