ActiveDelphi

porter

ola pessoal, eu tenho 3 forms que sao chamados nessa sequencia, em um sistema multi-empresa.

FormAtivarEmpresa
(SELECIONA A EMPRESA)

FormPrincipal
(SELECIONA O RELATORIO A SER IMPRESSO )

FormTRCT
(FORM QUE TEM O QUICKREP PARA IMPRESSAO)

O problema é que o evento OnClose do FormTRCT nao executa quando clico no (x) do Print Preview para fechar, ele só é executado depois que fecho o primeiro form, quando somente saio do sistema, ai sim executa o OnClose do FormTRCT.

estou usando o Delphi 7, obrigado.

joemil · Enviada: Ter Jun 19, 2012 4:12 pm Assunto:

estranho, apesar q nao uso QR. ja tentou o evento onCloseQuery?
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

imex · Enviada: Ter Jun 19, 2012 4:22 pm Assunto:

Boa tarde,

Que tipo de códigp você está tentando executar no OnClose de FormTRCT?
FormTRCT está em Auto-Create Forms?
Você utiliza um Form de Preview próprio ou o padrão?

porter · Enviada: Ter Jun 19, 2012 4:47 pm Assunto:

Que tipo de códigp você está tentando executar no OnClose de FormTRCT?
FormTRCT está em Auto-Create Forms?
Você utiliza um Form de Preview próprio ou o padrão?

no OnClose de FormTRCT esta assim:

Begin
action := cafree;
FormTRCT := nil;
end;

FormTRCT nao esta em Auto-Create Forms, apenas o FormAtivarEmpresa

No FormTRCT estou colocando o QuickRep do Delphi, mas estou usando o Canvas.

imex · Enviada: Ter Jun 19, 2012 4:56 pm Assunto:

Acho que você pode utilizar código semelhante ao que segue para criar o Form, exibir o Preview do relatório e depois destruir o Form:

porter · Enviada: Ter Jun 19, 2012 5:15 pm Assunto:

antes no FormTRCT nao executava nem o OnDestroy e nem o OnClose, agora ja esta executando o OnDestroy, ja houve um progresso, só nao entendo o porque que nao executa o OnClose.

obrigado.

imex · Enviada: Ter Jun 19, 2012 5:40 pm Assunto:

O código que você postou do OnClose não é mais necessário, pois o código que sugeri destroi a instância que foi criada de FormTRCT.
O OnClose não é executado porque este form não é exibido, não é executado por exemplo FormTRCT.Show ou FromTRCT.ShowModal.
O form que é exibido é o form de Preview do QuickReport.

Espero que ajude.

GustavoToyota · Enviada: Ter Jun 19, 2012 5:42 pm Assunto:

Dá pra substituir o evento OnClose pela mensagem WM_CLOSE?
O Form recebe essa mensagem?

porter · Enviada: Ter Jun 19, 2012 6:34 pm Assunto:

obrigado Imex, agora deu certo agora entendi o código que vc passou.

obrigado a todos.