Mouse Position in Bild ermitteln

[MiniMax]

Hallo Zusammen,
ich habe ein Problem: Ich habe ein Bild ind ein Image1 geladen, und nun möchte ich Wissen, wo mein Mouse Zeiger grade auf dem Bild ist! Ich wollte dass mit On mouse Over machen und Irgendwie mit ScreentoClient. Nur weis ich net wie das geht? Außerdem sagen immer alle, ich soll in der Delphi Online Hilfe schauen, nur die Finde ich nicht. :wall:

Ich hoffe es kann mir jemand bei meinem Problem Helfen.
Vielen Dank im Voraus

[blink182]

Delphi-Quellcode:

Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);

du kannst einfach X und Y der Methode nehmen, das sind die Position der Maus von der oberen Linken Ecke ausgesehen :-)
Hoffe das hilft dir weiter.

[MiniMax]

Danke, aber wie welcher Methode soll ich X und Y entnehmen? Kannst du mal ein Beispiel schreiben?

[Matze]

Das OnMouseMove-Ereignis liefert dir X und Y über die Parameter. Im OnMouseMove-Ereignis kannst du auf X und Y somit direkt zugreifen.
Beispiel:

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Form1.Caption := 'x: ' + IntToStr(X) + ', y: ' + IntToStr(Y);
end;

[MiniMax]

Hi, Danke für die super schnelle Antwort: :thumb:
Ist X und Y dann jeweils die Koordinate auf dem Bild?
Kann ich die z.B. mit anderen Werten mischen? Genau wie werte aus ner TEdit Box?

[Matze]

Wie meinst du das? X und Y sind die Koordinaten auf dem TImage. Die obere linke Ecke ist dabei x = 0 und y = 0.
Es handelt sich dabei um Integerwerte. Was du damit anstellen möchtest, weiß ich nicht. Aber das, was man mit Integerwerten so machen kann (rechnen, darstellen) geht natürlich.

[MiniMax]

Hey Matze,
danke genau das war meine Frage! Wenn ich jetzt z.B. Ein String in ein Integer umrechnen möchte, ist es doch "StrToInt"? Und Integer zu String "IntToStr"? oder Irre ich mich?

[wicht]

Stimmt so.

[MiniMax]

thx @all Hat mir viel geholfen