Oh hab ich den Code vergessen.':oops:'
Hier die Event Abfragen
ProcedureCDLL.l _Even()
raus = WaitWindowEvent(10) ; This line waits until an event is received from Windows
WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
GadgetID = EventGadget() ; Is it a gadget event?
menuid=EventMenu()
EventType = EventType() ; The event type
SetClipboardText(Str(WindowID)+"|"+Str(GadgetID)+"|"+Str(menuid)+"|"+Str(EventType))
ProcedureReturn raus
EndProcedure
Hier wird das Menü erstellt.
In DB
hwnd= call dll(1,"GetForegroundWindow")
mm=_Creatmen("&Datei",hwnd)
Add Menu 1,"Laden"
Add Menu 2,"Neu"
MenuBar
add menu 3,"Ende"
ProcedureCDLL.l _Creatmen(Text$,win)
raus=CreateMenu( #PB_Any, win)
MenuTitle(Text$)
ProcedureReturn raus
EndProcedure
ProcedureCDLL _AddMenu(nr,Text$)
MenuItem(nr, Text$)
EndProcedure
ProcedureCDLL _MBar()
MenuBar()
EndProcedure
ProcedureCDLL _SubMenu(Text$)
OpenSubMenu(Text$)
EndProcedure
ProcedureCDLL _CMbar()
CloseSubMenu()
EndProcedure
ProcedureCDLL.l _Popmem()
raus=CreatePopupMenu( #PB_Any )
ProcedureReturn raus
EndProcedure
ProcedureCDLL.l _GetMenItem(menunr,item)
If IsMenu(menunr)
raus=GetMenuItemState(menunr,item)
EndIf
ProcedureReturn raus
EndProcedure
ProcedureCDLL _SetMenuItem(menunr,me,st)
If IsMenu(menunr)
SetMenuItemState(menunr, me, st)
EndIf
EndProcedure
Warum liefert GadgetID das selbe wie Menuid?
