Программирование в Delphi. Трюки и эффекты. Александр Чиртик

Чтение книги онлайн.

      Изменять положение указателя на экране можно не только физически передвигая мышь, но и программно задавая новые экранные координаты. Следующий код демонстрирует, каким образом это можно сделать (листинг 3.4).

      procedure TForm1.Button1Click(Sender: TObject);

      var

      pt: TPoint;

      begin

      Application.ProcessMessages;

      Screen.Cursor:= CrHourglass;

      GetCursorPos(pt);

      SetCursorPos(pt.x + 1, pt.y + 1);

      Application.ProcessMessages;

      SetCursorPos(pt.x – 1, pt.y – 1);

      end;

      Захват указателя мыши

      Существует ряд задач, для выполнения которых полезно иметь возможность получать сообщения от мыши даже тогда, когда указатель находится за пределами формы. Обычно рабочая область программы ограничена размерами окна приложения. Это значит, что действия, выполняемые пользователем за пределами рабочей области, попросту не воспринимаются приложением. Попробуйте сделать следующее: откройте редактор Paint, сделайте размер его окна меньше размера холста, затем, зажав кнопку мыши, нарисуйте линию так, чтобы в ходе рисования указатель вышел за пределы окна редактора. Если теперь развернуть окно редактора на весь экран, то можно увидеть, что рисунок содержит часть линии, которую вы рисовали, перемещая указатель за пределами окна редактора. Так происходит, потому что редактор Paint «захватывает» указатель, как только пользователь начинает рисовать линию, и «освобождает» указатель, когда пользователь отпускает кнопку мыши.

      Захват указателя полезен и в других случаях, потому стоит рассмотреть способ его реализации (а сделать это действительно просто). В листинге 3.5 приведены обработчики нажатия и отпускания кнопки мыши, которые реализуют захват указателя на время от нажатия до отпускания кнопки.

      procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

      begin

      //Захватываем указатель мыши

      SetCapture(Handle);

      end;

      procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

      begin

      //Отменяем захват указателя

      ReleaseCapture();

      end;