Ich bin mal wieder dabei etwas zu versuchen.
In diesem Post http://www.purebasic.fr/german/viewtopi ... 00#p343800 von RSBasic habe ich ein code Snippet gefunden welches mir für mein Vorhaben helfen könnte.
Ich habe dieses Snippet etwas abgeändert um mein Vorhaben etwas zu verdeutlichen
Code: Alles auswählen
EnableExplicit
Define hhkLLMouse
Procedure MouseKeyHook(nCode, wParam, lParam)
Select wParam
Case #WM_LBUTTONDOWN
Debug "Linke Maustaste wird gedrückt."
Case #WM_LBUTTONUP
Debug "Linke Maustaste wurde losgelassen."
Case #WM_MOUSEMOVE
Debug EventGadget()
EndSelect
ProcedureReturn CallNextHookEx_(0, nCode, wParam, lParam)
EndProcedure
If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ListIconGadget(1,0,0,WindowWidth(0)/2,WindowHeight(0),"Title 1",200,0)
ListIconGadget(2,WindowWidth(0)/2,0,WindowWidth(0)/2,WindowHeight(0),"Title 1",200,0)
hhkLLMouse = SetWindowsHookEx_(#WH_MOUSE_LL, @MouseKeyHook(), GetModuleHandle_(0), 0)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
UnhookWindowsHookEx_(hhkLLMouse)
Wie bringe ich Windows jetzt dazu mir ,ohne explizitem Tastendruck auf eines der Gadgets (ListIcon1 / ListIcon2), dieses Gadget beim Überfahren mit der Maus zu aktivieren.
Ich habe da in der API Referenz erst mal nichts gefunden.
Hat da jemand eine Idee?