Buenas tardes señores. ¿Qué clase controla este modelo de menú? Una simulación de un MENÚ DE MODO DE CONSOLA.
Code: Select all | Expand
AddDosMenuPrompt( " A -" + Chr( 16 ) + " Inclusoes " + Chr( 17 ), )
AddDosMenuPrompt( " B -" + Chr( 16 ) + " Alteracoes " + Chr( 17 ), )
AddDosMenuPrompt( " C -" + Chr( 16 ) + " Consultas " + Chr( 17 ), )
AddDosMenuPrompt( " D -" + Chr( 16 ) + " Exclusoes " + Chr( 17 ), )
OP2 := ExecDosMenuPrompt()
