Mauszeigerposition ungleich Mauszeigericonposition

[Noobmaster]

Hallo Leute!
Ich bewege in meinem Programm ein Bild, indem ich es immer an die Cursorposition setze. Jetzt ist mir allerdings aufgefallen, dass das Bild des Cursors von meinem Bild im Fenstermodus weit weg ist. Im Vollbildmodus stimmen die Positionen überein. Im Fenstermodus stört das, da wenn ich einen Mausklick ausführe, wird eine Procedure aufgerufen. Allerdings befindet sich der Mauszeiger dann häufig außerhalb des Fensters.
Woher könnte dieses mir unverständliche Phänomen kommen und wie kann ich das Problem lösen? Ich habe es mit SetCursorPos probiert, aber die Cursorposition ist wie gesagt zur tatsächlichen Position des Cursorbildes weit entfernt (genau genommen immer weiter oben links)
Danke schonmal für die Antworten

[DeddyH]

Wie ermittelst Du denn die Mausposition? Ich habe den Verdacht, dass Dir ScreenToClient weiterhelfen könnte.

[Noobmaster]

In der FormClick-Procedure habe ich z.B. folgendes stehen:

Delphi-Quellcode:

Image.X := Mouse.CursorPos.X;
Image.Y := Mouse.CursorPos.Y;

Was ist eigentlich ein ScreenToClient?
Also im Prinzip, würde ich einfach nur gerne wissen, wie ich den Cursor wieder an die richtige Stelle bekomme (laut Mouse.CursorPos ist er ja an der richtigen Stellen.

[Matze]

"Mouse.CursorPos" bezieht sich auf die Bildschirmkorrdinaten. Die des TImages beziehen sich auf dein Formular.
Daher diese Unterschiede.

Würde sich dein Formular am Bildschirm exakt oben links befinden, müssten die Koordinaten übereinstimmen.

Nimm doch das OnMouseDown-Ereignis:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Left := X;
  Image1.Top := Y;
end;

[himitsu]

OnClick ... wieso nicht OnMouseDown? Dort bekommst du direkt die richtigen Koordinaten gelefert.

Zitat von Noobmaster:

Was ist eigentlich ein ScreenToClient?

Schonmal in der OH gesehn?

[edit]
wo kommt plötzlich der Matze her? der war vor 'ner Minute noch nicht da
und auch nimma 'ne Redbox gab's (falls ich doch länger zum antworten brauchte)

[Amateurprofi]

Zitat von Matze:

"Mouse.CursorPos" bezieht sich auf die Bildschirmkorrdinaten. Die des TImages beziehen sich auf dein Formular.
Daher diese Unterschiede.

Würde sich dein Formular am Bildschirm exakt oben links befinden, müssten die Koordinaten übereinstimmen.

Nein, m.E. auch dann nicht, weil sich die Koordinaten des TImage nicht auf das Formular sondern auf die ClientArea des Formulars beziehen.
Dazwischen liegt in der Horizontalen der Rand des Formulars und in der Vertikalen der Rand, die Caption und ggfs. das MainMenu des Formulars.
Es sei denn es handelt sich um ein rahmenloses Formular ohne Caption und ohne MainMenu.

[Matze]

Zitat von Amateurprofi:

Nein, m.E. auch dann nicht, weil sich die Koordinaten des TImage nicht auf das Formular sondern auf die ClientArea des Formulars beziehen.

Du hast Recht, kleiner Denkfehler meinerseits.

[Noobmaster]

Zitat von himitsu:

OnClick ... wieso nicht OnMouseDown? Dort bekommst du direkt die richtigen Koordinaten gelefert.

Weil ich die Koordinaten eigentlich nur dann brauche (berechne genau zu dem Zeitpunkt einen Vektor, aber ich werde das ganze jetzt mit dem OnMouse-Ereignis machen.
Danke!

[himitsu]

OK, zum Zeitpunkt von OnClick wäre OnMouseUp passender.

OnClick = OnMouseDown+OnMouseUp, wobei beim Loslassen der Taste das Ereignis ausgelöst wird.