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

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

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

     

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

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

    Сначала:

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

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

    Var
    Pos: TPoint;

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

    face="Courier New" size="2"> begin;
    GetCursorPos(pos);
    x:=pos.x;
    y:=pos.y;
    end;

  •  
    « Предыдущая статья   Следующая статья »