SsiriusS2

Что не кто не знает?

Не чего не получается! А идея с тектовиками и html понравилась! Может подскажишь по подробней как сделать ? Или дать ссылки на готовые коды для проги MIDLETPASCAL? скачал русскую документацию по этой проге но всё равно не получается, лутше учится на примерах!!!

Народ подскажите как можно сделать....

в общем я хотел сделать небольшую шпору для универа. Чтоб я мог выбирать из списка билет1, билет2 и так далее. После выбора билета должен переходить на него(выводить там всякие таблицы, какойнить текст)
Ну в общем это удалось но немагу сделать подсказку, не магу добавить кнопку назад, выход. верней могу добавить но они почемуто не работают!!!!!!

Вод код программы(конечно написана не грамотно а может и не правильно Но главное она делает то что мне нужно):


program ttt;
program draw;
var ok, clicked, pp, exitCmd:command;
label_id, image_id, label_idd:Integer;


begin
ok := createCommand('Билет 1', CM_OK, 1);
addCommand(ok);
pp := createCommand('Билет 2', CM_OK, 1);
addCommand(pp);
exitCmd := createCommand('Exit', CM_EXIT, 1);
addCommand(exitCmd);

repeat
clicked := getClickedCommand;
until clicked <> emptyCommand;

while clicked = ok do
begin
label_id := formAddString('Задание.');
image_id := formAddImage(loadImage('/icon.png'));
label_id := formAddString('Вариант ?33 ');
image_id := formAddImage(loadImage('/icon1.png'));
label_id := formAddString('Данное ');
image_id := formAddImage(loadImage('/icon2.png'));
showForm;
delay(10000000);
end;

while clicked = pp do
begin
label_id := formAddString('Вот это маё тварение!!!!!');
image_id := formAddImage(loadImage('/icon.png'));
showForm;
delay(10000000);
end;
end.


Причём выход работает тока на главно й странице где выбираю билет. А когда выбрал билет то не магу сделать выход, назад.