Листинг 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);
SetCursorPos(pt.x – 1, pt.y – 1);
end;
Канал с обзорами, анонсами новинок и книжными подборками
Бот для удобного поиска книг (если не нашлось на сайте)
Свежие любовные романы в удобных форматах
О психологии, саморазвитии и личностном росте
Детективы и триллеры, все новинки
Фантастика и фэнтези, все новинки
Отборные классические книги
Цитаты, афоризмы, стихи, книжные подборки, обсуждения и многое другое
Библиотека с любовными романами, которая наверняка придётся по вкусу женской части аудитории
Библиотека с фантастикой и фэнтези, а также смежных жанров
Самые популярные книги в формате фб2
Присоединяйтесь к нашим литературным сообществам!