Maus in TImage einsperren (Mäusefalle)

[Niko]

Für das Problem gibt es die Methode ClientToScreen, die Formularkoordinaten in Bildschirmkoordianten umwandelt:

Delphi-Quellcode:

var
  P: TPoint;
//...
  P.X := image1.Left;
  P.Y := image1.Top;
  P := Form1.ClientToScreen(P);
  rec.Left := P.X;
  rec.Top := P.Y;
  rec.Right  := P.X + image1.Width;
  rec.Bottom := P.Y + image1.Height;