1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Duvida Mensagem antes de Fechar Smartwindow

Discussão em 'Progress 4GL' iniciado por ueluis, Agosto 27, 2014.

  1. ueluis

    ueluis Membro Participativo

    pessoa,

    tenho um programa (smartwindow) e quero colocar uma mensagem para evitar que o usuário feche o mesmo pressionando ESC ou CTRl + Pause Break, o que posso fazer?
  2. Eilleen

    Eilleen Membro Ativo

    Boa tarde,
    Nesse caso você deve colocar a mensagem no END-ERROR da frame e no WINDOW-CLOSE da window. Após a mensagem coloca o RETURN NO-APPLY.
  3. ueluis

    ueluis Membro Participativo

    Olá,

    configurei conforme seu exemplo, funcionou porém mesmo executando a procedure que contem a msg de saida, não impedia a tela de fechar.
    Consegui alterando o MAIN-BLOCK desta maneira,

    MAIN-BLOCK:
    DO ON STOP UNDO, RETRY:

    IF RETRY THEN DO:
    RUN p-sair.
    END.


    RUN enable_UI.

    IF NOT THIS-PROCEDURE:pERSISTENT THEN
    WAIT-FOR CLOSE OF THIS-PROCEDURE.
    END.

    dentro da procedure p-sair eu fiz as tratativas de saida.

    obrigado pela resposta.

Compartilhe esta Página