Меню

[S2k]

Хотел зделать чтобы в ожидании нажатия пользователем кнопки ок можно было нажать меню и оно работало:
while(getclickedcommand<>okcom)do
begin
delay(100);
if(getclickedcommand=cancom)then Menu;
if(getclickedcommand=okcom)then break;
end;
в результате меню работает, а при нажатии ок цикл завершаться не хочет

[ViNT]

Вообще надо делать так:

var clicked:command;
...
repeat
clicked:=getclickedcommand;
if clicked=cancom then menu;
...
until clicked=okcom;