Hi,
Ich glaube, es geht um einen beliebigen Winkel, beine Lösung ist immer 45°.
Eigentlich ist das nicht sonderlich kompliziert.
Pseudocode:
Delphi-Quellcode:
var
winkel: double; // winkel im bogenmaß: von 0 bis 2pi
x,y: double;
[...]
procedure move;
begin
x := x+cos(winkel); // cos für horizontale bewegung
y := y+sin(winkel); // sin für vertikale bewegung
panel1.left := round(x);
panel1.top := round(y);
end;