Einzelnen Beitrag anzeigen

Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#8

AW: Hilfeersuch Polygon verschieben

  Alt 14. Jun 2012, 20:50
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.~

Delphi-Quellcode:
procedure TForm1.IrgendEinButtonClick;
var
  x, y: Integer;
  i: Integer;
  dx, dy: Integer;
begin
  x := StrToInt(Edit1.Text); // hier drinnen befindet sich die x Koordinate
  y := StrToInt(Edit2.Text); // hier drinnen befindet sich die y Koordinate
  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;
  Invalidate; // neuzeichnen
end;
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat