Как узнать, лежит ли точка внутри или снаружи прямоугольника
Как узнать, лежит ли точка внутри или снаружи прямоугольника
Как узнать, лежит ли точка внутри или снаружи прямоугольника Чтобы определить, лежит ли точка внутри или снаружи прямоугольника, удобно использовать функцию PtInRect. Если точка внутри прямоугольника, PtInRect возвращает true, иначе false. Пример: procedure TForm1.FormPaint(Sender: TObject); begin Form1.Canvas.Rectangle(100, 100, 200, 200); end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if PtInRect(Rect(100, 100, 200, 200), Point(X, Y)) then Form1.Caption := 'In' else Form1.Caption := 'Out'; end;
