Программирование - это просто
Advertisement
Главная arrow Уроки программирования arrow Delphi: Маленькие хитрости arrow Delphi: Некоторые "приколы" с мышкой (Rect, ClipCursor, screen, random, setcursorpos).
29.05.2024 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Delphi: Некоторые "приколы" с мышкой (Rect, ClipCursor, screen, random, setcursorpos). Печать E-mail
Автор megabax   
09.09.2009 г.
<strong>Продолжим изучать поиск и замену. Функция Delphi StringReplace</strong>

Delphi: Некоторые "приколы" с мышкой (Rect, ClipCursor, screen, random, setcursorpos).

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

"Мышеловка": ограничим курсор мыши заданным прямоугольников (Rect, ClipCursor).

Это сделать довольно просто. Вот пример кода:

 

procedure TfrmMouseTrap.btnStartClick(Sender: TObject);
var lRect:TRect;
begin
    lRect:=Rect(0,0,200,200);
    ClipCursor(@lRect);
end;

 

"Сумасшедшая" мышка (setcursorpos, Screen, random).

Ниже приведен пример, как сделать указатель мыши "безумным" - скачущим туда сюда беспорядочным образом.

procedure TfrmMouseTrap.btnMadMouseClick(Sender: TObject);
begin
  randomize;
  repeat
    setcursorpos(random(Screen.Width-1),random(Screen.Height-1));
    sleep(5000);
  until false;
end;
Последнее обновление ( 16.11.2011 г. )
 
Пред. »
 
© 2024 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги