[Dragonprof]

Сообщение от d.Van

дальше первого экрана почему то не проходит

Незнаю вот твой код!

program bol;
uses
 mail, wol;
 
var
 whoonline, Mail: integer;//пункты главного меню
 go, exit, clicked: command; 

begin
repeat

 showMenu('Beta-On-Mobile', CH_IMPLICIT);
 
 //Команды меню
 whoonline:=menuAppendString('Кто он-лайн?');
 Mail:=menuAppendString('Внутренняя почта');
 //Кнопки
 go:=createCommand('Выбор', CM_OK , 1);
 exit:=createCommand('Выход', CM_Exit, 1);
 addCommand(go);
 //addCommand(exit);
 repeat 
  delay(100);  
  clicked := getClickedCommand;  
 until clicked = go;  
 
 if menuGetSelectedIndex = whoonline then ShowWhoOnLine; 
 if menuGetSelectedIndex = mail then ShowMail;

 RemoveCommand(go);
 //RemoveCommand(exit);

until false; 
end.

У меня стоит Midlet Pascal 2.02 Все прекрасно компилится и работает! Проверял на MidpX эмуляторе!
Траблы у тебя поставь нормальный эмулятор или версию более новую паскаля!

З.Ы.
Скачать можна тут:
http://midletpascal.com/downloads.php - версию 2.02
http://home.kimo.com.tw/kwyshell/ - тута в разделе download скачай норм эмулятор Java


А вообще немного поправить нуна!

program bol;
uses
 mail, wol;
 
var
 whoonline, Mail: integer;
 go, clicked: command; 

begin
repeat

 showMenu('Beta-On-Mobile', CH_IMPLICIT);
 whoonline:=menuAppendString('Кто он-лайн?');
 Mail:=menuAppendString('Внутренняя почта');
 go:=createCommand('Выбор', CM_OK , 1);
 addCommand(go);
 repeat 
  delay(100);  
  clicked := getClickedCommand;  
 until clicked = go;  
 
 {!!} ShowCanvas;
 
 if menuGetSelectedIndex = whoonline then ShowWhoOnLine; 
 if menuGetSelectedIndex = mail then ShowMail;

 RemoveCommand(go);

until false; 
end.

ПРосто ты не указываеш что делать дальше! так как ShowWhoOnLine и ShowMail не созданы вот они и не грузятся! Создай их перед вызовом и все будет работать...