Форма MenuIsSelected
 

Помогите, что я делаю не так
Я хочу чтобы при включении мидлета показывало две формы clock и audio
И если нажать open откроется выделенная форма
program NewProject1;


program NewProject1;
var
time: integer;
text: string;
clock, audio : integer;
open:command;
openClock, openAudio :boolean;
cmdBack : command;
clicked : command;
begin

clock := menuAppendStringImage('clock', loadImage('/clock.png'));
audio := menuAppendStringImage('cudio', loadImage('/audio.png'));

open := createCommand('open', CM_SCREEN, 1);
addCommand(open);

repeat
delay(100);
clicked := getClickedCommand;
until clicked = open;

showCanvas;

if menuIsSelected(clock) then openClock;
if menuIsSelected(audio) then openAudio;


drawText('Нажмите "5" ', 15, 80);
repaint;
delay(1000);
while getKeyClicked <> KE_KEY5 do
begin
delay(100);
end;
drawImage(loadImage('/1.gif'), 0, 0);
repaint;
delay(200);
drawImage(loadImage('/2.gif'), 0, 0);
repaint;
delay(200);
drawImage(loadImage('/3.gif'), 0, 0);
repaint;
delay(200);
drawImage(loadImage('/4.gif'), 0, 0);
repaint;
delay(200);
drawImage(loadImage('/5.gif'), 0, 0);
repaint;
delay(200);
drawImage(loadImage('/6.gif'), 0, 0);
repaint;
delay(200);
drawImage(loadImage('/logo1.png'), 0, 0);
repaint;
delay(1000);
time := getCurrentTime;
text := 'Время ' + getHour(time);
text := text + ':'+ getMinute(time);
text := text + ':' + getSecond(time);
drawText(text, 30, 40);
repaint;
delay(99999999999);
delay(100);





end.

Re: Форма MenuIsSelected
 

А это тут к чему?
Убери эту строку и создай две процедуры openClock и openAudio, которые будут выполнять то, что ты хочешь.

Re: Форма MenuIsSelected
 

procedure Clock;
begin

end;

procedure Audio;
begin

end;

//////////////
if menuIsSelected(clock) then Clock;
if menuIsSelected(audio) then Audio;