Jump to content


Photo

Problema de MessageDlg y open.window

UNisession MessageDLG DelphiXE8 callback FormModal Chrome

  • Please log in to reply
No replies to this topic

#1 NizamUlMulk

NizamUlMulk

    Member

  • uniGUI Subscriber
  • PipPip
  • 24 posts
  • LocationAsunción, Paraguay

Posted 13 June 2017 - 04:06 PM

 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


  • 0





Also tagged with one or more of these keywords: UNisession, MessageDLG, DelphiXE8, callback, FormModal, Chrome

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users