Delphi » Gotowce » Żarty w Delphi

Uciekająca mysz

Demonical Monk

2008-08-18 22:48:25
2012-04-22 16:10:23
1 komentarz
1046 odsłon

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

Żarty w Delphi

1 komentarz

Czy nie lepiej tak?

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