Mauposition auf beweglichem Image ermitteln

[Dunkelbunt27]

Hallo Delphi-PRAXIS,

ich versuche die aktuelle Klick Position auf einem Image, das sich verschieben lässt zu ermitteln.
Wenn man über Mouse.Cursor.Pos.Y des Images (Y-Koordinate) ermittelt, ist dies aber immer auf den gesamten sichtbaren Bereich des Fensters bezogen.
Da man das Image auch nur zum Teil sehen kann, in dem man es über den unteren Rand rutschen lässt, ist es aber schwierig rauszubekommen, wo man auf dem Image hingeklickt hat, da egal wo das Objekt ist, wenn die Maus sich nicht bewegt, aber das Objekt, liefert Mouse.Cursor.Pos.Y immer das gleiche.

Gibt es eine Möglichkeit Koordinaten auf einem Objekt abzufragen, so wie es mit der Form ist?
(Links oben 1:1, rechts unten z.B. 100:100)

FG Dunkelbunt

[DeddyH]

Mouse.CursorPos gibt Dir die Bildschirmkoordinaten zurück. Die kannst Du aber mit ScreenToClient umrechnen, oder Du verwendest ein Ereignis des Images, das Dir die relativen Koordinaten liefert (OnMouseDown).

[Dunkelbunt27]

Liefert mir das OnMouseDown des Images auch mittels Mouse.Cursor.Pos die Koordinaten zurück? Oder was muss ich nehmen?

EDIT: Ich wollte die Koordinaten testweise mal auf einem Label ausgeben:
Testlabel.Caption := 'Y: '+IntToStr(Y)+' X: '+IntToStr(X); Es passiert beim klicken aber nichts...

[Bummi]

PointToStr darfst Du AFAIK selbst programieren,
OnMouseXXXX liefert Dir in X und Y die Koordinaten innerhalb Deines Controls zurück.

[Dunkelbunt27]

PointToStr hab ich

Delphi-Quellcode:

function PointToStr(aPoint: TPoint): string;               //Point in String umwandeln
begin
  Result := Format('X: %d | Y: %d',[aPoint.X, aPoint.Y]);   // Format wandelt um
  // %d = Dezimal,         Standardgerüst: %[Index:][-][Width][.Precision]Type
end;

ScreenToClient hilft mir anscheinend noch nicht weiter. Ich denke OnMouseDown wird funktionieren.

[Dunkelbunt27]

Könnte mir jemand spontan einen Grund nennen, wieso mein zur Laufzeit erstelltes Image auf meine eigene OnMouseDown Prozedur nicht richtig auf das klicken reagiert?
Wenn ich ein neues Image einfüge und dann die vordefinierte OnMouseDown nehme, funktioniert alles....

Edit: Sorry für Doppelpost

[Bummi]

weist Du Deinem zur Laufzeit erzeigten Image eine OnMouseDown - Methode zu?

[Dunkelbunt27]

Also, ich hab es so gemacht:

Delphi-Quellcode:

public
procedure ImageMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
...
procedure TProjekt.ImageMouseDown(Sender: TObject; 
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   Testlabel.Caption := 'X: '+ IntToStr(X)+ 'Y: '+IntToStr(Y);
end;

Ist doch richtig, oder?

[Bummi]

ich meinte etwas in der Art ....

Delphi-Quellcode:

with TImage.Create(self) do
  begin
    Parent := Form1;
    Left := 10;
    Top := 20;
    OnMouseDown := ImageMouseDown;  
    ....
  end;

[Dunkelbunt27]

Ja sowas in der Art habe ich.
Nur das

Code:

OnMouseDown := ImageMouseDown;

fehlt

Danke... mal schauen obs klappt

EDIT: Ja, jetzt funktionierts. Danke.