[Delphi] Maus pos. auf Image auslesen

[Saimon]

Ich will in zwei Labeln die x und y Werte der Mausposition auf einer Image Komponente anzeigen lassen. Also dass nicht die Position des gesamten Bildschirms angezeigt wird sondern nur den Wert der Image Komponente. Also wenn die Maus ganz links oben auf der Image Komp. liegt 0, 0 als Werte angezeigt werden.

Bitte helft mir.

[Freezy]

In das OnMouseMove Event der Imagekomponente packst du folgendes:

Code:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  
  Label1.Caption := IntToStr(X);
  Laber2.Caption := IntToStr(Y);

end;

Das sollte helfen. Falls du die falschen koordinaten bekommst (die des Bildschirmes, was ich aber kaum glaube) machst du folgendes:

Code:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  
  Label1.Caption := IntToStr(X - Form1.Left - Image1.Left);
  Laber2.Caption := IntToStr(Y - Form1.Top - Image1.Top);

end;

Hoffe das hilft

[Saimon]

Ah danke jetzt geht's.

Aber irgendwie haben die Label bei x 4 zuviel angezeigt und bei y 22 zuviel. Naja ich hab dann noch hinzugefügt, dass das Jeweilige abgezogen wird.