#define EventMouseMove &H200
Константа. Используется для определения события перемещения мыши. В этом событии функция EventKEY может возвратить возможные сочетания клавиш:
MK_CONTROL - Клавиша CTRL находится в нажатом состоянии.
MK_LBUTTON - Левая кнопка мыши находится в нажатом состоянии.
MK_MBUTTON - Средняя кнопка мыши находится в нажатом состоянии.
MK_RBUTTON - Правая кнопка мыши находится в нажатом состоянии.
MK_SHIFT - Клавиша SHIFT находится в нажатом состоянии.
нет
Windows , Linux
#Include "window9.bi"
OpenWindow("",10,10,200,200)
Do
Var event=WaitEvent
Select Case event
Case EventClose
End
Case EventMouseMove
If EventKEY And MK_LBUTTON Then
? "Left Button press AND mousemove"
EndIf
? "MOUSE: " & MouseX & " " & MouseY
End Select
Loop
Created with the Personal Edition of HelpNDoc: Easily create HTML Help documents