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