Советы по Delphi



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


Nomadic советует:

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

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

    Сначала:

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

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

        Var
    Pos: TPoint;

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

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

    [001768]




    Содержание  Назад  Вперед