[KOOL]

чтобы мерцания не было видно, надо сдвиг подбирать. вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

...   var cur : TPoint;     r1 : integer;  //можно и дробным сделать     a1, r2, n:real;   procedure TForm1.Timer1Timer(Sender: TObject); begin   GetCursorPos(cur);   r2:=r1*(cos(n*a1)); //функция в полярных координатах   Form1.Width:=5;   Form1.Height:=5;   Form1.Left:=cur.X+Round(r2*cos(a1))+5;   Form1.Top:=cur.Y+Round(r2*sin(a1))-5; //чтобы мышке не мешалось   a1:=a1+pi/180; end;   procedure TForm1.FormCreate(Sender: TObject); begin   SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(application.Handle, GWL_EXSTYLE) Or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);   Form1.Height:=5;   Form1.Width:=5;   Form1.Top:=-5;   Form1.Left:=-5;   a1:=0;   r1:=100;   n:=3; end;

форма без границ, цвет по желанию, стиль - fsStayOnTop. можно еще ограничение по размеру поставить