; German forum: ; Author: Danilo ; Date: 02. April 2003 ; Zeigt wie man Links-, Rechts-, DoppelLinks- und DoppelRechts-Klicks für das ButtonGadget() abfragt. ; Nützlich z.B. wenn man ein Popup-Menu nach RechtsClick auf einen Button anzeigen will. ; Diese Events wurden in 3.62 im Zusammenhang mit AdvancedGadgetEvents() geändert. OpenWindow(0,0,0,170,106,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"Button Events") CreateGadgetList(WindowID()) AdvancedGadgetEvents(#TRUE) ButtonGadget(1,10,10,150,20,"Links-Klick") ButtonGadget(2,10,32,150,20,"Rechts-Klick") ButtonGadget(3,10,54,150,20,"Doppel-Links-Klick") ButtonGadget(4,10,76,150,20,"Doppel-Rechts-Klick") Procedure Message() MessageRequester("Button "+Str(EventGadgetID()),GetGadgetText(EventGadgetID()),0) EndProcedure Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow: End Case #PB_Event_Gadget Select EventGadgetID() Case 1 Select EventType() Case #PB_EventType_LeftClick : Message() EndSelect Case 2 Select EventType() Case #PB_EventType_RightClick : Message() EndSelect Case 3 Select EventType() Case #PB_EventType_LeftDoubleClick : Message() EndSelect Case 4 Select EventType() Case #PB_EventType_RightDoubleClick : Message() EndSelect EndSelect EndSelect ForEver ; ExecutableFormat=Windows ; FirstLine=1 ; EnableXP ; EOF