IsMouseOver

Синтаксис

function IsMouseOver(ByVal hWin As HWND) As Integer

Описание

Функция возвращает результат нахождения курсора под нужным окном или гаджетом. Если возвращаемое значение 1, то курсор находится над указанным окном или гаджетом. В противном случае возвращает 0.

Параметры

hWin - хендл окна

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
Dim as HWND hwnd
hwnd=OpenWindow("Main Window",10,10,200,150) : CenterWindow(hwnd)
ButtonGadget(1,10,10,60,30,"1 button")
ButtonGadget(2,100,10,60,30,"2 button")
Do
  event=WindowEvent()
  If Event=EventClose Then End
  If IsMouseOver(GadgetID(1)) Then
     ? "1 button"
  ElseIf IsMouseOver(GadgetID(2)) Then
     ? "2 button"
  ElseIf IsMouseOver(hwnd) Then
     ? "Main Window"
  EndIf
  Sleep(15)
Loop

Created with the Personal Edition of HelpNDoc: Full featured EBook editor