Урок 23 - Функции для работы с мышью

  В этом уроке изучим функции для работы с мышью.

   Итак, начнём! Вытащим на форму 5 кнопок и зададим свойства Caption: "Переместить курсор", "Скрыть курсор", "Показать курсор", "Поменять кнопки", "Вернуть кнопки". Вы наверно догадались о чем сейчас пойдет речь.

   Первая наша функция: SetCursorPos(x, y: integer), перемешает курсор в указанные координаты. Сразу же создадим обработчик события первой кнопки Button1Click и напишем вот такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
	SetCursorPos(100, 200);
end;

   При клике на кнопку курсор переместится в координаты X - 100 пикселей, Y - 200 пикселей.

   Следующая функция ShowCursor(bShow: longbool), скрывает курсор с параметром False и показывает его с параметром True. Также создадим событие второй и третьей кнопки.

procedure TForm1.Button2Click(Sender: TObject);
begin
	ShowCursor(False);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
	ShowCursor(True);
end;

   При нажатии на вторую кнопку курсор исчезает, а при нажатии на третью появляется.
   Ну и наконец последняя функция SwapMouseButton(bShow: longbool), менять местами кнопки мыши (левую на правую и наоборот), Создадим 2 обработчика событий 4 и 3 кнопки

procedure TForm1.Button4Click(Sender: TObject);
begin
	SwapMouseButton(False);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
	SwapMouseButton(True);
end;

   При нажатии на 4 кнопку происходит смена кнопок. ВАЖНО: если не вернуть обратно то при завершении работы программы все настройки сохранятся.

Удачи!
Встретимся в следующем уроке!

Добавил(а): pronin106	Дата: 2017-05-26
Урок интересный, но только где это может пригодится?)))

Добавил(а): baxodir	Дата: 2017-06-12
Но Это мало можно ещё больше