Предлагаю такую идею. При открытии попап-меню устанавливаешь какой-нибудь
Boolean флаг (
Public переменную формы) в
True, а сразу после вызова процедуры
PopupMenu - в
False После окончания операции проверяешь этот флаг. Если он равен
True, симулируешь падение само..., тьфу, курсора на форме, скажем, в точке с координатами (0,0)