Punkte verbinden zu einem Polygon

[xZise]

Zitat von Robert Marquardt:

Delphi-Quellcode:

implementation

{$R *.dfm}
var
  N: integer;
  Points: array of TPoint;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button = mbleft then
    image1.Canvas.Rectangle(x-7,y-7,x+7,y+7);
   n := n+1;
   SetLength(Points, n);
   Points[n-1].X := X;
   Points[n-1].Y := Y;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  image1.Canvas.Polygon(Points);
end;

end.

Wichtig! Im Create (doppelklick auf die Form) "N" auf 0 setzen!
Oder du benutzt kein N und machst es über Length(Points).

Delphi-Quellcode:

SetLength(Points, Length(Points) + 1);
Points[High(Points)].X := X;
Points[High(Points)].Y := Y;