Evento Close do QuickReport

Delphi

23/07/2008

Gostaria de que quando fechasse o QuickReport pelo botao ´close´ ou pelo ´X´, efetuasse um processo. Procurei no forum mas nao encontrei nada a respeito.

Ou se nao existir pelo menos, quando clicassem nesses botoes o QuickReport nao fechasse.

Grato a todos


Vagner.oliveira

Vagner.oliveira

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

23/07/2008

Colega,

Não entendi o propósito dos botões neste caso. Imagine o seu usuário pressionando o botão fechar e o mesmo não funcionasse. Certamente ele vai dizer que seu programa está com defeito, bem como, fere o princípio básico de usabilidade.
No entanto, o QuickRep tem a opção de você mesmo criar seu formulário de pré-visualização. Dê uma olhada no exemplo que acompanha o produto na seção DEMOS.


GOSTEI 0
Vagner.oliveira

Vagner.oliveira

23/07/2008

Aroldo para ser mais especifico é que preciso dar baixa no meu estoque quando fechar o quick report, como não consegui fiz um ´P.O.G.´ do tipo:

Depois que imprime ele pergunta se irá imprimir outra cópia, selecionando não ele fecha o QR e da baixa, só que se clicar em sim (para imprimir outra cópia) e clicar no close, não dará baixa no estoque.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

23/07/2008

Colega,

Você pode usar um formulário do tipo ´modal´ para o relatório e avaliar o retorno, conforme exemplo:

begin
  Application.CreateForm(TForm2, Form2);
  if Form2.ShowModal = mrOk then
  begin
    ShowMessage(´Baixar estoque.´);
  end;
  Form2.Release;
  FreeAndNil(Form2);
end;



GOSTEI 0
Vagner.oliveira

Vagner.oliveira

23/07/2008

Valew Aroldo, mas vou deixar do jeito que está.

Tenho outra dúvida sobre o ´Fortes Report´ gostaria que ao fecha-lo ele criasse automaticamente um arquivo PDF, a criação está beleza só que ele está criando o arquivo quando mostra o relatório e não quando fecha, coloquei a função dentro do evento AfterPrint do Relatório. como poderia fazer este processo.


GOSTEI 0
POSTAR