Есть код:
Program test1;
var exitCmd, nextcmd,clicked,cont: command;
str: integer;
begin
clearform;
str:=FormAddString('Страница1');
showform;
exitCmd := CreateCommand('Выход', CM_EXIT, 1);
nextcmd:=CreateCommand('Далее', CM_EXIT, 2);
AddCommand(exitCmd);
Addcommand(nextcmd);
repeat
clicked := GetClickedCommand;
if clicked=nextcmd then
begin
clearform;
str:=FormAddString('Страница2 ');
showform;
cont := createCommand('Назад', CM_BACK, 1);
addCommand(cont);
repeat
clicked := GetClickedCommand;
delay(100);
until Clicked = cont;
end;
until Clicked =exitcmd;
end.
1. Почему кнопка назад не работает
2. Можно ли как-то задать четкий порядок расположения команд, например Назад - слева, посередке - Функции или Опции, справа - Вперед.
А то на nokia 6300 справа выходить команда "Выход" , а слева "Функции", а там "Далее", а в дефолтном эмуляторе нормально показывает