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;