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

Возвращает идентификатор ID выбранного пункта в меню или -1 если этот пункт ещё не выбран.

function MenuGetSelectedIndex: integer;
 



Пример

var tetris, minesweeper, snake : integer;
      play, clicked : command;   
begin
    ShowMenu('Выберите игру', CH_IMPLICIT);
    
    tetris      := MenuAppendStringImage('Тетрис', LoadImage('/tetris.png'));
    minesweeper := MenuAppendStringImage('Минер', LoadImage('/mine.png'));
    snake       := MenuAppendStringImage('Змейка', LoadImage('/snake.png'));

    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




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

Не требуется




Смотри также

ShowMenu, MenuAppendString, MenuAppendStringImage, MenuIsSelected