Возвращает идентификатор 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 |