Движение мыши

[Claster]

Всем доброго времени суток........есть 2 точки, начальная (Х0,У0) и вторая (Х2,У2), вычисляется угол, если угол ближе к 90градусам то мышка двигается по оси Ох, если линия ближе к 180градусам то мышка двигается по оси Оу и т.д. (получается как линейка)
Ставим 2 точки и вычисляем угол.........как описать условия для перемещения мыши?

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  GetCursorPos(curs);
  Edit1.Text := inttostr(curs.X);
  Edit2.Text := inttostr(curs.Y);
  if GetAsyncKeyState (VK_SHIFT) <> 0  then  begin
    if not bCenter then begin
      x0:=curs.X;
      y0:=curs.Y;
      Label3.Caption := 'Координата 1 точки: X = '+inttostr(X0)+' Y = '+inttostr(Y0);
      bCenter:=True;
    end else begin
      x2:=curs.X;
      y2:=curs.Y;
      Label4.Caption := 'Координата 2 точки: X = '+inttostr(X2)+' Y = '+inttostr(Y2);
    end;
  end else begin
    bCenter:=False;
     if bLine then

      F := Round (abs(180*arctan2(Y2-Y0,X2-X0)/pi)); //угол в градусах
      Label5.Caption := 'Угол = '+ floattostr(F);

      //ограничиваем мышь

  end;
 end;

[JetUS]

Попробуй создать прямоугольную область шириной (или высотой) в 1 пиксел при помощи ClipCursor.

[Claster]

А что если описать так? к какому углу ближе....

case F of

      0..45: ;
      45..90: ;
      90..130: ;
      130..180: ;
      180..220: ;
      220..270: ;
      270..320: ;
      320..360: ;

[Claster]

Опять же меняем условие...............извините..... ..дело в том что не правильно понял задание.....и так:
Угол необходим для того что бы ограничить движение мыши под определенным углом

На Рис1: показан пример для вычисления угла
на Рис2: как может двигаться мышь после вычисления угла

теперь вроде все правильно.....нужно ограничить движение мыши под определенным углом