Maus in Fenster halten

[MaToBe]

Guten Tag,

mein Ziel ist etwas komisch. Ich möchte Wacraft III im Fenster-Modues spielen, um ab und an auch noch etwas chatten zu können. Außerdem fummel ich gern rum und es macht mir Spaß sowas umzusetzten, deshalb folgende Fragen:

1. Ich habe es geschafft, dass der Cursor nach dem klick auf meinen Button nur noch im Wacraft III Fenster bewegt werden kann. (Siehe Code) Allerdings geht das nur solange, solange ich NIRGENDS auf meinem Desktop hinklicke, nach dem ersten klick, egal wo hin ist die Wirkung aufgehoben. Warum?

Delphi-Quellcode:

procedure Mousefreeze (wHandle : HWND);
var Rect : TRect;
begin
  GetWindowRect(wHandle, Rect);
  ClipCursor(@Rect);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  h: hwnd;
  Result : string;
  Rect : TRect;
begin
  Result := inputbox('Handle finden', 'Geben Sie bitte den Namen des Fensters '
                      +'ein, von dem das Window-Handle ermittelt werden soll.','');
  h := FindWindowByTitle(Result);
  if h <> 0 then // if we found the Window-Handle
  begin
    ShowMessage('Window-Handle found');
//    ShowWindow(h, SW_Maximize);
    Mousefreeze(h);
  end
  else
    ShowMessage('not found.');
end;

2. Leider kann man mit dieser Methode zwar nicht außerhalb des Fenstes mit der Maus agieren, aber die Windows-Balken wie zB Maximieren und Minimieren sind weiterhin erreichbar. Wie schaffe ich es, dass die Maus wirklich im Fenster und nicht nur "auf dem Fenster" bleibt? Das quasi nur der Inhalt, aber nicht das eigentliche Fenster erreibar ist?

MFG

[DeddyH]

Zu 2: versuch es mal mit GetClientRect statt GetWindowRect.

[MaToBe]

Mit GetClientRect nimmt er sich irgendwie immer den ganzen Desktop und dann da etwa von (0/0) bis zu (500/500)... funktioniert also nicht.

€: Die ganzen Probleme liegen nicht daran, dass ich es an einem Spiel ausprobiere. Zu testzwecken verwende ich immer NotePad und dort geht es nicht.

[Neutral General]

Zitat:

Zitat von MaToBe

Mit GetClientRect nimmt er sich irgendwie immer den ganzen Desktop und dann da etwa von (0/0) bis zu (500/500)... funktioniert also nicht.

€: Die ganzen Probleme liegen nicht daran, dass ich es an einem Spiel ausprobiere. Zu testzwecken verwende ich immer NotePad und dort geht es nicht.

Naja du hast das ClientRect ja... Du musst es nur auf die Position des Fensters umrechnen ;)

[lbccaleb]

Zu 1 :lol:

Also bei dem Problem wirst du wohl an einem Maus Hook nicht vorbeikommen!

[Progman]

Das Rect "per Hand" berechnen.

Delphi-Quellcode:

h.Left:=MainForm.Left+10;
h.Top:=MainForm.Top+50;
h.Right:=h.Left+MainForm.Width-20;
h.Bottom:=h.Top+MainForm.ClientHeight-60;

Und dann eben bissel probieren, bis es so ist, wie man möchte.
So mach ich das immer beim eigenen Fenster ;)
Und diese Methode eben auf h anwenden, in dem man h etwas verkleinert.

[MaToBe]

Zitat:

Zitat von lbccaleb

Zu 1 :lol:

Also bei dem Problem wirst du wohl an einem Maus Hook nicht vorbeikommen!

kann mir jemand das mit dem Mouse Hook erklären?

[Progman]

Warum nicht so:

Delphi-Quellcode:

procedure Mousefreeze (wHandle : HWND);
var Rect : TRect;
begin
  GetWindowRect(wHandle, Rect);
  //Die Werte dann eventuell etwas anpassen
  Rect.Left:=Rect.Left+10;
  Rect.Right:=Rect.Right-20;
  Rect.Top:=Rect.Top+30;
  Rect.Bottom:=Rect.Bottom-10:
  ClipCursor(@Rect);
end;

Das ist die einfachste Variante und man brauch nicht extra einen Hook ;)

[MaToBe]

doch scheinbar schon...

das funktioniert einwandfrei, sobald ich aber irgendwo hinklicke verliert der code seine wirkung und die maus ist wieder offen...

[lbccaleb]

Such mal hier im Forum und per Google, dort sollte es ne menge Tuts geben.
Ich kann dir da auch nicht so weiter Helfen, bin auch nicht sehr Informiert in dem Thema.