Добавляет пункт меню в виде строки текста в текущее меню. Функция возвращает идентификатор ID этого пункта внутри данного меню.
function MenuAppendString(text: string): 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
Требуемый модуль
Не требуется
Смотри также
ShowMenu, MenuAppendStringImage, MenuIsSelected, MenuGetSelectedIndex |