Como fechar o QuickReport e voltar na form anterior

Delphi

03/06/2004

Tenho uma duvida meio boba. Tenho uma form com o botão de imprimir. como faço para quando fechar o quickreport ou terminar a impressão, voltar na mesma posição onde estava na form anterior.

Por exemplo: Na minha form, no evento onactivate, desativo varios botões, como salvar, cancelar, etc. quando eu clico no incluir, os botões de navegação são desativados, é é ativado os botões salvar e cancelar são ativados. quando eu clico no imprimir, na hora de voltar na form, volta o evento onactivate, ou seja, o botão salvar e cancelar estão desativados.

Atenciosamente

Marcio Nardo


Mnardo

Mnardo

Curtidas 0

Respostas

Rmc1701e

Rmc1701e

03/06/2004

Tenho algumas aplicações que funcionam desta forma:

Tenho um formulário 1, com controles visuais normais de interface com o usuário (caixa de edição, botões, etc.), que é o Form Chamador.

No evento OnClick que ativa a impressão coloque:

    Application.CreateForm(TfrmRelatorio, frmRelatorio)


A Unit do [b:0ba44be2ae]frmRelatorio[/b:0ba44be2ae] deve estar declarada na cláusula [i:0ba44be2ae]uses[/i:0ba44be2ae] do seu Form Chamador.

No Form [b:0ba44be2ae]frmRelatorio[/b:0ba44be2ae] coloque:

procedure TfrmRelatorio.FormCreate(Sender: TObject);
begin
  QuickRep1.Preview;
  Close;
end;

Isso quer dizer: no momento da criação do formulário que tem o relatório em QuickReport, ele vai ativar o Preview e, assim que o usuário clicar no botão de ´Fechar´ do relatório, o formulário também vai fechar e sua aplicação volta para o Form Chamador.

Se, ao invés de colocar o método Preview, você colocar o método Print, ele deve imprimir e fechar normalmente o form, voltando para o Form Chamador.


GOSTEI 0
POSTAR