Hallo zusammen,

bestimmt ist diese Frage schon einmal im Forum beantwortet worden, aber ich kann keine passende Antwort auf meine Frage finden.

Mein Problem ist eigentlich ganz simpel. Ich möchte die Mausposition auf meiner Form1 in einer edit1.text ausgeben. Das habe ich auch soweit geschafft, nur das sich die Mauskoordinaten auf den gesamten Bildschirm und nicht nur auf die Form1 beschränken. Hierzu habe ich folgenden Quelltext genutzt:

Um es noch genauer zu formulieren, ich möchte dass in der oberen linken ecke die mausposition 0,0 beträgt.

markieren

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
edit1.text := IntToStr(Mouse.CursorPos.x);
edit2.text := IntToStr(Mouse.CursorPos.Y);
end;

Ich hoffe es kann mir jdm helfen.

Wenn ich mich nicht schwer irre übergibt das Mausmove-Erreignis zwei Parameter der eine heißt X, der andere Y und die müssten dann die Koordinaten auf der Form sein.

Hoffe geholfen zu haben

PS: Du hast die sogar da oben in dem Code stehen

Alternativ ScreenToClient

Ja aber wenn das Ereignis das schon liefert muss man sich ja nicht die Mühe machen

ja die koordinaten beziehen sich aber auf den gesamten bildschirm.... ich wusste mal wie ich das anders machen muss aber irgendwie keine ahnung wie ich das jetzt machen muss

Zitat von Erlkönig:

ja die koordinaten beziehen sich aber auf den gesamten bildschirm

Hi,

das verstehe ich jetzt aber nicht

markieren

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  edit1.text := inttostr(X);
  edit2.text := inttostr(Y);
end;

X und Y beziehen sich doch auf das Formular.

Ja aber er hat X und Y vom Mouse Objekt bezogen, das sich ja auf den ganzen Bildschirm bezieht und nicht von dem Event.

Zitat von HalloDu:

Ja aber er hat X und Y vom Mouse Objekt bezogen, das sich ja auf den ganzen Bildschirm bezieht und nicht von dem Event.

Hi,

das ist mir klar, daher habe ich jetzt mal den Code gepostet wovon du die ganze Zeit schon redest.

danke @ bitsetter

genau das meinte ich!