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?

:angle:, sCrAPt

[alcaeus]

Delphi-Quellcode:

clipcursor(@Image1.ClientRect);

Das müsste deine Lösung sein.

[sCrAPt]

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

:angle:, sCrAPt

[gmarts]

@scrapt
Bei deiner Methode wird die Titelleiste nicht berücksichtigt. Entweder die Breite dieser berücksichtigen oder Titelleiste ausblenden:

Delphi-Quellcode:

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 :D Danke Niko und die anderen :D

:angle:, 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

[SirThornberry]

@glkbkk: Im grunde genommen geht das auch, allerdings musst da da bei jeder mausbewegung die mausposition abfragen. Und wenn man schnell genug ist schafft man es auch kurzzeitig den mauskursor über dem bild weg zu bekommen

[sCrAPt]

Und außerdem möchte ich es ja auf dem best professionelsten Weg machen :mrgreen: :zwinker:

:angle:, sCrAPt

[Robert_G]

Warum dann nicht so:

Delphi-Quellcode:

Procedure TfrmIrgendWas.MouseTrap(Trap :Boolean);
var
  ClipRect          : TRect;
begin
  IsTrapping := Trap;
  if Trap then
  begin
    with Panel1 do
      with ClientRect do
        ClipRect := Rect(ClientToScreen(TopLeft),
                         ClientToScreen(BottomRight));

    ClipCursor(@ClipRect);
  end
  else
    ClipCursor(nil);
end;

Zum Einfangen:

Delphi-Quellcode:

  MouseTrap(True);

Zum Freilassen:

Delphi-Quellcode:

  MaouseTrap(False);

Um die Maus für andere Anwendungen benutzen zu können braucht es noch 2 Events & eine bool'sche Variable im Form:

Delphi-Quellcode:

type
  TfrmIrgendWas = class(TForm)
    ...
    procedure AppActivate(Sender: TObject);
    procedure AppDeactivate(Sender: TObject);
  private
    IsTrapping :Boolean;
    ...

AppActivate:

Delphi-Quellcode:

  MouseTrap(IsTrapping);

AppDeactivate:

Delphi-Quellcode:

  ClipCursor(nil);

Die beiden Events musst du Application verpassen.

Ist nicht wirklich professionell (ich kam noch nie in die Verlegenheit die Maus einzufangen ;) ), aber es dürfte funktionieren.

[sCrAPt]

JaJa Robertokarlostina_G.... Musstest du auch wieder deinen Senf dazu geben, gelle :zwinker:

Zitat:

ich kam noch nie in die Verlegenheit die Maus einzufangen

Und was is wenn du ne Mäuseplage in der Wohnung/im Haus hast? Dann brauchste Mäusefallen ;)

:angle:, sCrAPt

[glkgereon]

@Sir Thonberry
klar, haste recht, und wirklich professionell.... :-D

[Niko]

@Robert:
Wenn, dann schon mit BoundsRect statt ClientRect :wink: : ClientRect.TopLeft ist immer (0, 0).