Задача в Delphi(движение за мышкой)

[Angelly]

Подскажите как решить задачу,на вид, довольно простую: необходимо нарисовать смайлик,глаза которого будут следить за движением мышки.
Нужно просто рассчитать геометрич. фор-лу треугольника?И еще вопрос,как ограничить движение так называемого зрачка за пределы глаза(кружочка,в котором он(зрачок или точка нах-ся)?
P.S. неопытная студентка)

[Levsha100]

Находим (из прямоугольного треугольника) угол образующийся между центром вокруг которого вращается зрачок и указателем мыши.
Далее так:

x:=centrX+Radius*Cos(angle*Pi/180);
y:=centrY+Radius*Sin(angle*Pi/180);

где Radius- это радиус вращения зрачка.
//Если что, то часиков через 3-4 я буду тут, обращайтесь.

[Angelly]

А можно немного поподробнее..,пожалуйста)

[Stilet]

Вот тут для примерчика накропал движения одного глаза:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var cx1,cx2,cy,x,y:integer;
begin
 x:=Width div 2;y:=Height div 2;
 with Canvas do
 begin
   Brush.Color:=clYellow;
   Ellipse(x-50,y-50,x+50,y+50);
   Brush.Color:=clWhite;
   y:=y-10; cy:=y;
   x:=x-20;   Ellipse(x-10,y-10,x+10,y+10);cx1:=x;
   x:=x+40;   Ellipse(x-10,y-10,x+10,y+10);cx2:=x;
    //******************************************
       Brush.Color:=clBlack;
       cx1:=cx1+Mouse.CursorPos.X div 100-5;
         Ellipse(cx1-5,cy-5,cx1+5,cy+5);
         Ellipse(cx1-5,cy-5,cx1+5,cy+5);
         Ellipse(cx2-5,cy-5,cx2+5,cy+5);
         Ellipse(cx2-5,cy-5,cx2+5,cy+5);
    //******************************************
 end;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Repaint;
end;

end.

Остально по аналогии допиши )

[Serge_Bliznykov]

Виталий, супер!!

только я бы рисование самой желтой рожицы вынес из repaint, иначе мерцает сильно.. ;(

[Stilet]

иначе мерцает сильно

Тогда его вынеси в WM_ERASEBACKGROUND.