Событие щелчка всплывающего меню delphi выполняется не только при щелчке мыши по элементу меню, но и после выполнения некоторой функции.

Если бы вы установили несколько точек останова и использовали F8 для пошагового выполнения кода, вы бы увидели, что не так.

В любом случае причина, по которой отображается сообщение: «Item1 Clicked!» это потому, что в это время установлена ​​переменная FMsg.

Поток вашего кода выглядит следующим образом:

 //Popup Menu Item1 Click event handler
 procedure MyForm.Item1Click(Sender: TObject);
 begin
   FMsg := 'Item1 Clicked!'; //4. Called after you click on first popup item
 end;

 procedure MyForm.ProcessPopup(APoint: TPoint);
 begin
   PopupMenu1.Popup(APoint.X, APoint.Y); //2. This shows the popup menu
   FMsg := 'Process Popup'; //3. After that FMsg value is set to 'Process Popup'
 end;

 procedure MyForm.Button1Click(Sender: TObject);
 begin
   ProcessPopup(Mouse.x, Mouse.Y); //1. Called first when you ress the mouse button
 end;

 procedure MyForm.Button2Click(Sender: TObject);
 begin
   ShowMessage(FMsg); //5. Finally this is called on Buttom2 click
                      //At this time the value of FMsg is 'Item1 Clicked!' as it
                      //was set last in Item click event handler
 end;

ПРИМЕЧАНИЕ. Вызов «PopMenu1.Popup(APoint.X, APoint.Y)» не останавливает ваш код в ожидании, на какой элемент всплывающего окна вы нажмете. Я думаю, вы перепутали функциональность всплывающего меню с модальными формами (диалогами), где код действительно ожидает модального результата, возвращаемого из такой формы.

Происходит следующее: когда отображается всплывающее меню, оно запускает собственный цикл обработки сообщений. При щелчке элемента меню событие щелчка отправляется в очередь сообщений приложений. IOW, это не действует немедленно. Затем всплывающее меню закрывается, и выполнение продолжается с установкой FMsg на «Обработать всплывающее окно». Цикл сообщений приложения затем извлекает сообщение, которое было опубликовано щелчком меню, и впоследствии вызывает Item1Click, который назначает «Item1 clicked» для FMsg.

Как изменить Чтобы получить ожидаемый результат, вам придется вмешаться в обычную обработку сообщений, например, вызвав Application.ProcessMessages сразу после PopupMenu.Popup. Но я не рекомендую этого делать. Лучше переосмыслите свой дизайн.