Gibt es ein Ereignis OnPopupClose o.ä., müßte da ein Flag setzen?
Delphi-Quellcode:
procedure TMainForm.PaintBoxPopupMenuPopup(Sender: TObject);
begin
FMouseStatus := cmsNone;
end;
procedure TMainForm.PaintBoxPopupMenuClosePopup(Sender: TObject);
begin
FMouseStatus := cmsWaitForMouseDown;
end;