on click TImage32 die position vom curser auf dem bild

[DGL-luke]

Hallo,

Image321.ControlToBitMap(pos); Das ist eine Funktion.

du musst also schreiben:

pos := Image321.ControlToBitMap(pos); Was aber auch nur Sinn macht, wenn zuvor in pos die Position des mauszeigers relativ zum Control, also zum TImage32 ist.

Mouse.CursorPos gibt die z.B. auch im OnClick die aktuelle Mausposition:

Delphi-Quellcode:

procedure Form1.Image321Click(Sender: TObject);
var pos: TPoint;
begin
pos := Mouse.CursorPos; //Position auf dem Bildschirm
pos := (Sender as TImage32).ScreenToClient(pos); //Position auf dem Control
pos := (Sender as TImage32).ControlToBitmap(pos); //Position auf dem Bild
end;

Diese Methode funktioniert auch, wenn dein Bild z.B. in der Komponente zentriert ist.