Метод MouseUp (Объект IIngeoMapEditorsSink)

Вызывается при отпускании кнопки мыши.

Синтаксис

Язык	Описание
VBScript, JavaScript	SubMouseUp(aButton, aShift, aX, aY)
Visual Basic	Sub MouseUp(ByVal aButton As TIngeoMouseButton, ByVal aShift As TIngeoShiftState, ByVal aX As Long, ByVal aY As Long)
Delphi	procedure MouseUp(aButton: TIngeoMouseButton; aShift: TIngeoShiftState; aX: Longint; aY: Longint);
C, C++	HRESULT MouseUp(TIngeoMouseButton aButton, TIngeoShiftState aShift, long aX, long aY);

Параметры

aButton

Кнопка мыши.

aShift

Флаги состояния клавиш <Alt>, <Shift>, <Ctrl> клавиатуры и кнопок мыши.

aX

X координата указателя мыши (в координатной системе устройства).

aY

Y координата указателя мыши (в координатной системе устройства).

Пример

sub MapEditors_MouseUp(aButton, aShift, aX, aY)
  if aButton = inmbLeft  then
    if aShift = (inssShift and inssAlt)  then
      if Application.Selection.Count = 1 then
         MsgBox "Идентификатор выделенного объекта " & Application.Selection.IDs(0)
      end if
    end if
  end if
end sub 

См.также

IIngeoMapEditorsSink