montei um pequeno exemplo para facilitar o entendimento dos amigos
agradeço desde já qq ajuda
att: Nascimento
segue o exemplo do cod abaixo:
Código: Selecionar todos
#include "minigui.ch"
Function Main()
define window Main_form ;
at 0,0;
width getdesktopwidth();
height getdesktopheight();//- 30;
main;
nosize;
backcolor {0,0,0}
define window j_menu;
row 2;
col 5;
width 290;
height 300;
windowtype panel;
nosize;
backcolor {240,240,240}
* TITULO DA PRIMEIRA JANELA
define label label_nome_sistema
col 0
row 0
width j_menu.width
height 30
value 'MENU INICIAL'
centeralign .T.
fontname 'verdana'
fontsize 14
fontcolor BLACK
fontbold .F.
transparent .F.
backcolor {149,202,255}
end label
* OPÇOES DO MENU 1
define label label_opcao_1
col 10
row 30
value '[ C ] CADASTRAR ALUNO '
autosize .T.
fontname 'courier new'
fontsize 12
fontbold .F.
fontcolor {128,128,128}
transparent .T.
end label
define label label_opcao_2
col 10
row 55
value '[ A ] ALTERAR CADASTRO '
autosize .T.
fontname 'courier new'
fontsize 12
fontbold .F.
fontcolor {128,128,128}
transparent .T.
end label
@ 320,010 textbox tbox_escolha;
height 20;
width 20;
font 'courier new' size 12;
maxlength 1;
uppercase;
backcolor {240,240,240};
on change menu_escolha();
noborder
end window
end window
Main_form.Center
Main_form.Activate
return nil
*********************************
function menu_escolha()
local opcao := j_menu.tbox_escolha.value
do case
case opcao == ''
return (nil)
case opcao == 'C'
msginfo('Cadastro')
case opcao == 'A'
msginfo('Altera')
otherwise
msginfo('Tecla Invalida')
end case
setproperty('j_menu','tbox_escolha','value','')
j_menu.tbox_escolha.setfocus
return (nil) 
clipper 5.3 /harbour/minigui
