Вроде локализовал свою проблему. Добавляем две команды меню, запускающие соответствующие процедуры, в бесконечном цикле ждем команды... Выполняется только первая команда, вторая никогда. Если IF'ы поменять местами, будет выполняться только selday. Ничего не понимаю
iii:=0;
repeat
if (GetClickedCommand = toprog) then begin
PlayAlertSound;
viewprog;
end;
if (GetClickedCommand = today) then begin
PlayAlertSound;
selday;
end;
Delay(100);
until iii=1;
Сталкивался кто-нибудь с такими проблемами?