Enumeration  
  #Window_0
  #Image  
EndEnumeration

Global hhook
Procedure MouseProc(nCode, wParam, lParam)
  *ms.MOUSEHOOKSTRUCT = lParam
  SetGadgetText(0, "x: "+Str(*ms\pt\x))
  SetGadgetText(1, "y: "+Str(*ms\pt\y))
   
  If wParam = #WM_RBUTTONUP ; 205h
  result = 1
  MessageRequester("Message", "Удалить ссылку", 0)
   
  Else
  result = 0
  EndIf
   
  ProcedureReturn result
EndProcedure
hInstance = GetModuleHandle_(0)

OpenWindow (#Window_0, 0, 0, 1000, 800, "Заглавие", #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered )  

  WindowID = WindowID(#Window_0)
   
  TextGadget(0, 4, 4, 48, 24, "x: ")
  TextGadget(1, 4, 32, 48, 24, "y: ")
  lpdwProcessId = GetWindowThreadProcessId_(WindowID, 0)
  hhook = SetWindowsHookEx_(#WH_MOUSE, @MouseProc(), hInstance, lpdwProcessId)
   
   
;------------------Меню--------------------
  If CreateMenu(111, WindowID(#Window_0))
  MenuTitle("Файл")
  MenuItem(1, "Открыть")
  MenuItem(2, "Сохранить")
  MenuItem(3, "Выход")  
  MenuTitle("Избранное")
  MenuItem(0, "Создать ссылку" )
  MenuItem(0, "" )
  MenuBar()
MenuItem(100, "1111" )  
MenuItem(101, "2222" )  
MenuItem(102, "3333" )  
MenuItem(103, "4444" )  
MenuItem(104, "5555" )  
  MenuTitle("Информация")
  MenuItem(4, "Помощь")
  MenuItem(4, "О программе")  
  EndIf
;------------------------------------------

If CreatePopupMenu(222)
  MenuItem(222,"Удалить")
EndIf

Repeat
Event = WaitWindowEvent()  

  Menu=EventMenu() ; Узнаём идентификатор пункта меню
  If Event= #PB_Event_Menu  
  Select Menu  
  Case 0
  If #WM_RBUTTONUP ; Нажата правая кнопка мышки
  ;DisplayPopupMenu(222,WindowID(#Window_0))
  EndIf  
  EndSelect
  EndIf

If Event = #PB_Event_CloseWindow
Break  
EndIf
ForEver