Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Hilfeersuch Polygon verschieben

   
    by Aphton, 14. Jun 2012
  Oder um es ein bisschen Quick und Dirty zu machen, könntst du den Inhalt dieser Procedure rauskopieren und an der Stelle einfügen, wo du sie ausgeführt haben willst.~
  
  
  procedure TForm1.IrgendEinButtonClick;
  var
  x, y: Integer;
  i: Integer;
  dx, dy: Integer;
  begin
  x := StrToInt(Edit1.Text); // hier drinnen befindet sich die x Koordinate
• Forum: Programmieren allgemein

  AW: Hilfeersuch Polygon verschieben

   
    by Aphton, 13. Jun 2012
  Sofern du dich schon mit der Definition/Ausprogrammierung von Methoden/Proceduren auskennst, könntest du folgendes machen~
  
  
  procedure TForm1.verschiebePolygon(x, y: Integer);
  var
  i: Integer;
  dx, dy: Integer;
  begin
  dx := x - xp;
  dy := y - yp;