Indicates if the mouse cursor is within the screens drawing area. | |
Syntax: | Boolean = object.IsMouseInScreen |
Description: | This property indicates if the mouse cursor is
within the screens drawing area. Example: Sub OnUnhighlight(highlightReason As Long) Dim var As DGefObjectVariable Set var =
CimGetScreen().Object.Variables.Item("var") If CimGetScreen().IsMouseInScreen Then var.Value = Chr$(34) & "Mouse on
other object." & Chr$(34) Else var.Value = Chr$(34) & "Mouse
exited screen." & Chr$(34) End If CimGetScreen().Refresh False End Sub |