Hilfeersuch Polygon verschieben

[Aphton]

Sofern du dich schon mit der Definition/Ausprogrammierung von Methoden/Proceduren auskennst, könntest du folgendes machen~

Delphi-Quellcode:

procedure TForm1.verschiebePolygon(x, y: Integer);
var
  i: Integer;
  dx, dy: Integer;
begin
  dx := x - xp[1];
  dy := y - yp[1];
  for i := 1 to n do
  begin
    xp[i] := xp[i] + dx;
    yp[i] := yp[i] + dy;
  end;
end;

procedure TForm1.IrgendEinButtonClick;
var
  x, y: Integer;
begin
  x := StrToInt(Edit1.Text); // hier drinnen befindet sich die x Koordinate
  y := StrToInt(Edit2.Text); // hier drinnen befindet sich die y Koordinate
  verschiebePolygon(x, y);
  Invalidate; // neuzeichnen
end;