M I D l e t P a s c a l
ShowMenu

Показывает меню на диспле устройства. Другие элементы формы при этом не отображаются (кроме команд). Параметр menuType определяет тип меню и може принимать такие значения:

·CH_IMPLICIT - То, что вам нужно в большинстве случаев 
·CH_EXCLUSIVE - Можно выбирать только 1 элемент из списка (аналог Radio Button)  
·CH_MULTIPLE - Можно выбирать несколько строк меню (аналог Check Box)  

procedure ShowMenu(title:string; menuType:integer); 
 



Пример

var tetris, minesweeper, snake : integer; 
    play, clicked : command; 

begin
    showMenu('Выберите игру', CH_IMPLICIT); 
    
    tetris := menuAppendString('Тетрис'); 
    minesweeper := menuAppendString('Минер'); 
    snake := menuAppendString('Змейка'); 

    play := createCommand('Играть', CM_SCREEN, 1); 
    addCommand(play); 
    repeat 
        delay(100); 
        clicked := getClickedCommand; 
    until clicked = play; 
    showCanvas;

    if menuGetSelectedIndex = tetris then playTetris; 
    if menuGetSelectedIndex = minesweeper then playMinesweeper; 
    if menuGetSelectedIndex = snake then playSnake; 
    ... 
end.





Совместимость

MIDP1.0




Требуемый модуль

Не требуется




Смотри также