15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту

Как изменить положения курсора мыши

  • Установка курсора мыши в определенное место

    •
    Чтобы установить курсор мыши в какое-либо место экрана необходимо воспользоваться функцией SetCursorPos(x,y);

    Например: Чтобы установить курсор в верхний левый угол монитора нужно написать следующий код: SetCursorPos(0,0);

  • Получение координат курсора

    •
    Для начала необходимо определить переменную pos типа TPoint.

    Сначала:

    //Вне процедуры!
    Type Tpoint = record
    x:integer;
    y:integer;
    end;

    Потом объявляете саму переменную : 

    Var
    Pos: TPoint;

    И собчтвенно получение координат:

    begin;
    GetCursorPos(pos);
    x:=pos.x;
    y:=pos.y;
    end;