Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Var
A: double; // double statt integer -> Gleitkommazahl
begin
A := ArcTan2(Y, X);
Caption := FloatToStr(A*180/pi);
{ Wenn du keine Kommazahlen willst:
Caption := IntToStr(trunc(A*180/pi));
}
end;
Für Gleitkommazahlen musst du FloattoStr oder FloatToStrF verwenden.
Mit *pi/180 wird die Zahl ins Gradmaß umgerechnet, da du sonst eine etwas unhandliche Zahl im Bogenmaß erhälst.