herculanojs Posted January 10, 2018 Share Posted January 10, 2018 He experimented using TuniFrame to use some reports that have visual interaction screen with the user. However, I have some difficulties when there is a failure to prepare the report. In Tuniframe, there is a method that will prepare the report, and if so, preview the file and successively destroy the frame. This works perfectly However, when the preparation method fails, the frame is not being destroyed. If an attempt is made to run the report again, we received an error that the frame already exists. How should we proceed in such a situation? procedure TfrmFinanceiro_Associado.UniSpeedButton3Click(Sender: TObject); var FrC : TUniFrameClass; Fr : TUniFrame; begin if qrydados.IsEmpty then exit; FrC := TUniFrameClass(FindClass('TFrameEmissaoBoleto')); if frc <> nil then begin fr := TUniFrameClass(FindClass('TFrameEmissaoBoleto')).Create(self); if fr <> nil then begin datamodel.link.Util.PassaObject(fr,'SelectedFields',qryDados.Fields); if not datamodel.link.util.ExecutaMetodo(fr,'prepara') then FreeAndNil(fr); end; end; end; Quote Link to comment Share on other sites More sharing options...
herculanojs Posted January 10, 2018 Author Share Posted January 10, 2018 Solution: Try .... finally Freeandnil (fr); end; tanks Quote Link to comment Share on other sites More sharing options...
Sherzod Posted January 10, 2018 Share Posted January 10, 2018 Hi, Before creating, you need to check the existence of a frame by using Assigned Quote Link to comment Share on other sites More sharing options...
herculanojs Posted January 10, 2018 Author Share Posted January 10, 2018 ok Quote Link to comment Share on other sites More sharing options...
mehamada Posted November 1, 2019 Share Posted November 1, 2019 actually can not destroy a TuniFrame insde TUniTabsheet ? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.