Сообщение от 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 не созданы вот они и не грузятся! Создай их перед вызовом и все будет работать...