Oczy wodzące za kursorem

Jak zrobić "oczy" obserwujące kursor myszy?
Próbowałem do tego dojść samemu ale mi nie wychodzi... [glowa]

Znalazłem kod w JScript ale... [glowa]

http://www.javascript.tigroup.pl/kur13.php#

Dzięki z góry. [browar]
Pozdrawia Cimak [cya]

Hmm.. zwykły Pos() + Left i Top.. :) Gorzej z ograniczeniem pola tych komponentow poruszanych :)

GetCursorPos() w timerze.

var
  Form1: TForm1;
  x1,y1: Integer;    

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  x1:=Screen.Width div (Shape2.Width - shape4.Width);
  y1:=screen.height div (Shape2.height - shape4.Height);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var p: TPoint;

begin
  getcursorpos(p);

  shape4.Left:=shape2.Left+(p.X div x1);
  shape4.Top:=shape2.top+(p.Y div y1 );

  shape5.Left:=shape3.Left+(p.X div x1);
  shape5.Top:=shape3.top+(p.Y div y1 );

end;

A jak zrobić, żeby po ustawieniu kursora między oczami zrobiło zeza ?
Bo o to mi głównie chodzi...

Dzięki [browar]

jesli kazde oko bedzie osobno "patrzylo" w kierunku kursora to nic nie musisz robic

jesli kazde oko bedzie osobno "patrzylo" w kierunku kursora to nic nie musisz robic

Tak, tylko jakbyś mu jeszcze podał sposób na patrzenie jednym okiem... :)

Myślę, że trzeba by tu wykorzystać wzór na okrąg, bo przecież oko (a właściwie tęczówka) porusza się po okręgu. Trzeba też będzie pewnie liczyć kąt pomiędzy prostą poziomą, a prostą przechodzacą przez środek oka i przez kursor, żeby obliczyć, w jakim momencie tej okrągłej ścieżki tęczówka ma się znajdować. Czyli ogólnie, trygonometria będzie niezbędna. Nie podałem pełnego rozwiązania, bo go nie znam, mamjednak nadzieję, że w czymś pomogłem.