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

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

Синтаксис

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

Параметры

aButton

Кнопка мыши.

aShift

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

aX

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

aY

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

Пример

sub MapEditors_MouseDown(aButton, aShift, aX, aY)
  if aButton = inmbLeft then
    if aShift = (inssShift and inssAlt) then
       MsgBox "Точка (" & aX & ", " & aY & ")."
    end if
  end if
end sub