Delphi » Gotowce » Żarty w Delphi

Uciekająca mysz

Kopiuj

procedure uciekajaca_mysz;
var P: TPoint;
begin
 SetCursorPos(Random(Screen.Width), Random(Screen.Height));
end;

Żarty w Delphi

Czy nie lepiej tak?

Kopiuj

Mouse.CursorPos := Point(Random(Screen.Width), Random(Screen.Height));