Процедура MouseWhereXY. Возвращает текущие координаты указате — ля. Заголовок:

Procedure MouseWhereXY(var X,Y: Integer).

Здесь X,Y — переменные, в которых возвращаются текущие виртуальные координаты указателя.

Замечу, что координаты меняются при любом смещении мыши независимо от того, виден ли на экране указатель или нет.

Прсщедура MouseGotoXY. Перемещает указатель в заданную точку экрана. Заголовок:

Procedure MouseGotoXY(X,Y: Integer).

Здесь X, Y — виртуальные координаты требуемого положения указателя.

Функция MouseWhereX. Возвращает текущую горизонтальную текстовую координату указателя. Заголовок:

Function MouseWhereX: Byte.

Функция MouseWhereY. Возвращает текущую вертикальную текстовую координату указателя. Заголовок:

Function MouseWhereY: Byte.

функция MouseIn. Возвращает True, если указатель находится в заданном месте экрана. Заголовок:

Function MouseIn(Xl,Yl,X2,Y2): Boolean.

Здесь XI. „Y2 — виртуальные координаты, определяющие верхний левый (X1,Y1) и правый нижний (X2,Y2) углы прямоугольника, в котором должен находиться указатель.

4.2.4. Состояние кнопок

Функция NumButton. Возвращает количество кнопок у мыши. Заголовок:

Function NumButton: Byte.

Функция возвращает 2, если мышь имеет две кнопки, 3 — если три, и О во всех других случаях.

Процедура GetMouseState. Возвращает текущее состояние мыши. Заголовок:

Procedure GetMouseState(var Butt,X,Y: Integer).

Здесь Butt — признаки состояния кнопок; X,Y — текущие виртуальные координаты.