Delphi Нарисовать Стрелку

Delphi предоставляет возможность создавать пользовательские элементы управления и по нашей теме мы можем создать компонент, который нарисует стрелку. Для этого мы можем использовать метод Paint компонента.

Вот код простого компонента, который рисует стрелку:

procedure TArrow.Paint;var  Pt1, Pt2, Pt3: TPoint;begin  inherited;  with Canvas do  begin    Brush.Color := clRed;    Pen.Color := clMaroon;    Pen.Width := 2;    Pt1 := Point(Width div 2, 0);    Pt2 := Point(0, Height-1);    Pt3 := Point(Width-1, Height-1);    Polygon([Pt1, Pt2, Pt3]);    MoveTo(Pt1.X, Pt1.Y);    LineTo(Pt2.X, Pt2.Y);    LineTo(Pt3.X, Pt3.Y);    LineTo(Pt1.X, Pt1.Y);  end;end;

Приведенный выше код создает компонент TArrow, который можно разместить на форме и отобразить на этой форме стрелку, нарисованную красным цветом.