Program MVK;
Var mstatus,mscan,mupdate,msetting,mhelp,msusp:integer;
go,click:command;
Procedure status;
begin
clearForm;
delay(-1);
end;
Procedure menu;
begin
go:=createCommand('Go!',CM_SCREEN,1);
showMenu('M-Virus Killer',ch_implicit);
mstatus:=MenuAppendStringImage('Статус',loadImage('/st.png'));
mscan:=MenuAppendStringImage('Сканировать',loadImage('/sc.png'));
mupdate:=MenuAppendStringImage('Обновить',loadImage('/up.png'));
msetting:=MenuAppendStringImage('Настройки',loadImage('/se.png'));
mhelp:=MenuAppendStringImage('Помощь',loadImage('/fq.png'));
msusp:=MenuAppendStringImage('Фоновый',loadImage('/mi.png'));
addCommand(go);
repeat
delay(100);
click:=getClickedCommand;
until click=go;
if menuGetSelectedIndex=mstatus then status;
repaint;
end;
begin
menu;
end.
Пипец...а я не хочу чтобы было с кнопкой "Go!". Телефон создаёт кнопку "Выбрать" на каждому пункте меню. Я хочу чтобы нажимая на неё открывалось подменю. Как её словить? Помогите, моих знаний мало