MouseX

MouseX

Определяет координаты мыши по оси X  в окне приложения

Пример:

#Include "window9.bi"
Dim As Integer hwnd
hwnd=OpenWindow("",10,10,200,200)

Do
 Var event=WaitEvent
 Select Case event
  Case EventClose
   End
  Case EventMouseMove
        ? MouseX & "  " & MouseY
 End Select
Loop

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Free help authoring tool