Maus in TImage einsperren (Mäusefalle)

[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).