Mauskoordinaten (X,Y) in Grad umrechnen?

[smart]

Hallo Mathekünstler!

Wie kann ich die Mauskoordinaten (X,Y) in Grad umrechnen? Ich habe eine Form. Auf dieser ist ein TImage, das sich immer in Richtung der Maus drehen soll.

Gruß
Heike

[hanselmansel]

Ok, du hast sowohl die Mauskoordinaten als auch die Koordinaten des Images gegeben.
Mit

Delphi-Quellcode:

Abs(x1 - x2);
Abs(y1 - y2);

kommst du an die Katheten des Steigungsdreiecks. Wenn ich mich nicht täusche ist tan(alpha) = Gegenkathete / Ankathete.
Der Winkel zwischen der Verbindungsgerade Image-Maus und der Horizontalen müsste demnach
alpha := arctan(Gegenkathete/Ankathete) sein.

lG,

hanselmansel

€dit: Irgendwie ist meine antwort zu einfach, habe ich in deiner frage was übersehen ???

[Khabarakh]

Oder einfach Arctan2 . Wobei einem auch damit das Prüfen von X auf 0 (-> Ergebnis Pi/2 bzw. -Pi/2) nicht erspart bleibt.

[smart]

Zitat von Khabarakh:

Oder einfach Arctan2 . Wobei einem auch damit das Prüfen von X auf 0 (-> Ergebnis Pi/2 bzw. -Pi/2) nicht erspart bleibt.

Vielen Dank, aber da bekomme ich immer ein
[Fehler] Unit1.pas(29): Undefinierter Bezeichner: 'ArcTan2' Gruß
Heike

[mkinzler]

Hast du Math eingebunden?

[smart]

Zitat von mkinzler:

Hast du Math eingebunden?

Sorry hatte ich vergessen Aber ......
dann bekommen ich: [Fehler] Unit1.pas(29): Inkompatible Typen: 'Integer' und 'Extended'

Gruß
Heike

[Neutral General]

Was übergibst du denn als Parameter ?

[smart]

Zitat von Neutral General:

Was übergibst du denn als Parameter ?

Hallo Michael!

Ich übergebe die Mauskoordinaten (X,Y).

Gruß
Heike

[Neutral General]

Zeig mal bitte Quelltext... Du übergibst da irgendwo nen String statt ner Zahl...
Ansonsten würde der Fehler nicht kommen

Gruß
Neutral General

[smart]

Zitat von Neutral General:

Zeig mal bitte Quelltext... Du übergibst da irgendwo nen String statt ner Zahl...
Ansonsten würde der Fehler nicht kommen Neutral General

Sorry, hatte mich bei der Fehlermeldung verschrieben (Inkompatible Typen: 'Integer' und 'Extended').

Hier ist der Code:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var
A: Integer;
begin
A := ArcTan2(Y, X);
Caption := IntToStr(A);
end;

Gruß
Heike