Показать сообщение отдельно
Старый 01.11.2012, 12:44   #1
Spot
AnyKey`щик
 
Регистрация: 31.10.2012
Сообщений: 5
Написано 0 полезных сообщений
(для 0 пользователей)
Вопрос по командам

Есть код:
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 справа выходить команда "Выход" , а слева "Функции", а там "Далее", а в дефолтном эмуляторе нормально показывает
(Offline)
 
Ответить с цитированием