Maus in TImage einsperren (Mäusefalle)

[sCrAPt]

HiHo

Ich versuch grad die Maus mit ClipCursor() in ein TImage einzusperren. Als Parameter übergeb ich einfach ein TRect aber ich weiß nicht wie ich es am simplesten anstelle das Rec GENAU zu definieren
Ich habs mit dem versucht:

Delphi-Quellcode:

  rec.Left   := form3.Left + image1.Left;
  rec.Top    := form3.top + image1.Top;
  rec.Right  := form3.Left + image1.Left + image1.Width;
  rec.Bottom := form3.top + image1.Top + image1.Height;
  clipcursor(@rec);

Aber dann ist es nicht genau

Also wie soll ich es machen?

, sCrAPt

[alcaeus]

clipcursor(@Image1.ClientRect); Das müsste deine Lösung sein.

[sCrAPt]

dann hab ich die größe aber nicht die position

, sCrAPt

[gmarts]

@scrapt
Bei deiner Methode wird die Titelleiste nicht berücksichtigt. Entweder die Breite dieser berücksichtigen oder Titelleiste ausblenden: form.borderstyle:=bsnone; bzw. mit clientheight, clientwidth arbeiten anstatt height und width.

[alcaeus]

Ok, da hast du Recht, sorry, hatte einen Denkfehler. Aber was ist an deiner Methode so umständlich/ungenau? Das ganze musst du doch einfach in einem OnMove des Forms machen, ich sehe kein Problem dabei...

[Stanlay Hanks]

Die Titelleiste kann ja auch höher als normal sein Aber ich denke, sowas steht in der Registry bestimmt irgendwo.

[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;

[sCrAPt]

Funktioniert Danke Niko und die anderen

, sCrAPt

[Nicodius]

.... das ist nützlich

[glkgereon]

gut, dasses gelöst ist, aber würde nicht auch das funzen?

Delphi-Quellcode:

if mouse.x<Image1.left then mouse.x:=Image1.left;
if mouse.x>Image1.left+Image1.width then mouse.x:=Image1.left+Image1.width;
if mouse.y<Image1.top then mouse.y:=Image1.top;
if mouse.y>Image1.top+Image1.heigth then mouse.y:=Image1.top+Image1.heigth;
//mouse.x/mouse.y musses irgendwo geben