quinta-feira, 6 de agosto de 2009

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