NizamUlMulk Posted June 13, 2017 Share Posted June 13, 2017 Ejemplo al presionar el botón ok procedure btnOKClick(Sender: TObject); procedure Imprimir; begin UniMainModule.CrearWebFilePath; UniSession.AddJS('window.open('+QuotedStr(UniMainModule.WebFilePath)+',"_blank", "status=no,location=no,resizable=no,dependent=yes,toolbar=no,menubar=no", "false");' ); end; begin UniScreenMask1.AttachedControl := btnOk; UniScreenMask1.TargetControl := Self; Self.MessageDlg('Desea imprimir el contenido?', mtConfirmation, mbYesNo, procedure (Sender: TComponent; Res: Integer) var cerrarModal: boolean; begin cerrarModal := Res = mrNo; if not cerrarModal then Imprimir else CloseModal; end); end; En ese ejemplo no sale nunca el mensaje, y mucho menos se abre la nueva ventana que contendría el archivo pdf a imprimir. La prueba fue hecha sobre Chrome.Porqué puede ser que no dispare el messagedlg?. Tampoco cierra el form porque nunca se ejecuta el callback Quote Link to comment Share on other sites More sharing options...
NizamUlMulk Posted April 3, 2019 Author Share Posted April 3, 2019 2 años después encontré el motivo! Es porque hay un lookupcombobox en el mismo form que tiene eventos de manejo de teclas (OnKeyPress, OnKeyUp) 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.