Функция RunMenu |
Функция запускает меню с именем menuName.
function RunMenu (menuName : string; [x : integer, y : integer] ) : word;
menuName : string - имя меню для запуска.
x, y : integer - необязательные координаты левого верхнего угла меню. Если эти координаты не указаны или равны -1,-1, то они берутся от текущего видимого элемента.
Результатом является команда, которую данное меню сгенерировало.
case RunMenu('YESNO') of cmYes: respond := 'ДА'; cmNo, cmCancel: respond := 'НЕТ'; end;