Ближайшая точка к курсору

@Claster · Регистрация: 02.10.2008

Все привет......известен центр и радиус, как узнать ближайшую точку к курсору в это радиусе?

@DedBoroda · 21.07.2011, 16:20

положение курсора относительно формы определяется функцией GetCursorPos, далее нужно всё перевести в новую систему координат и решаем систему уравнений, где пересечение окружности и прямой

@Claster · 21.07.2011, 16:27 **[ТС]**

а поподробнее можно.........я новичок

Добавлено через 4 минуты
ого.........не могли бы вы скинуть примерчик.....буду очень благодарен

@DedBoroda · 21.07.2011, 16:39

Добавлено через 9 минут

Delphi

const NewX=100;
      NewY=100;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.Caption := inttostr(X-NewX)+' '+inttostr(Y-NewX);
end;

Координаты курсора в новой системе координат относительно центра О(100;100)

@Claster 91 / 56 / 12 Регистрация: 02.10.2008 Сообщений: 550
		1
	Ближайшая точка к курсору 21.07.2011, 16:10. Просмотров 881. Ответов 3 Метки нет (Все метки) Все привет......известен центр и радиус, как узнать ближайшую точку к курсору в это радиусе? 0

@DedBoroda ComfyMobile 89 / 89 / 8 Регистрация: 04.11.2010 Сообщений: 376
	21.07.2011, 16:20	2
	положение курсора относительно формы определяется функцией GetCursorPos, далее нужно всё перевести в новую систему координат и решаем систему уравнений, где пересечение окружности и прямой 0

@Claster 91 / 56 / 12 Регистрация: 02.10.2008 Сообщений: 550
	21.07.2011, 16:27 [ТС]	3
	а поподробнее можно.........я новичок Добавлено через 4 минуты ого.........не могли бы вы скинуть примерчик.....буду очень благодарен 0

Опции темы