Message

case message

Case Message / com Opcoes Clarion Matos - 06 08 09 05:49

CASE MESSAGE('Continuar?','Titulo',ICON:Question,'&Sim|&Nao|&Outra',3,2)
OF 1                               
 MESSAGE('Aqui a resposa para Sim')
OF 2                               
 MESSAGE('Aqui a resposa para Nao')
OF 3                               
 MESSAGE('Aqui a resposa para Outra opcao')
END

CASE MESSAGE('Sair','Tit',ICON:Question,BUTTON:Yes+BUTTON:No,BUTTON:No,1)
OF BUTTON:No                         
   MESSAGE(' no ')
OF BUTTON:Yes
   MESSAGE('yes ')
END

Mensagem Clarion com Pergunta - Clarion/matos/amarildo

CASE MESSAGE('Você deseja Gerar a página HTML?','Sucesso na geração do Arquivo',ICON:Question,BUTTON:Yes+BUTTON:No,BUTTON:No,1)
OF BUTTON:No
CYCLE
OF BUTTON:Yes
DeleteFile('\amarildo\a.txt')
end