Функция возвращает true (истина) если пункт в меню с идентификатором index выбран.
function MenuIsSelected(index: integer): boolean;
|
Пример
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 MenuIsSelected(tetris) then PlayTetris;
if MenuIsSelected(minesweeper) then PlayMinesweeper;
if MenuIsSelected(snake) then PlaySnake;
...
end. |
Совместимость MIDP1.0
Требуемый модуль
Не требуется
Смотри также
ShowMenu, MenuAppendString, MenuAppendStringImage, MenuIsSelected |