Maus in Fenster halten

[MaToBe]

ich habe es jetzt per timer gelöst. Intervall alle 0,1 sekunde. Ist zwar nicht die beste Lösung, funktioniert aber.

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;

procedure TForm1.Button1Click(Sender: TObject);
var
  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.','');
  wHandle := FindWindowByTitle(Result);
  if wHandle <> 0 then // if we found the Window-Handle
  begin
    ShowMessage('Window-Handle found');
//  ShowWindow(h, SW_Maximize);
    Mousefreeze(wHandle);
    Timer1.Enabled := true;
  end
  else
    ShowMessage('not found.');
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Mousefreeze(wHandle);
end;

Hat jemand noch ne Verbesserungsmöglichkeit (außer Hook)?

[turboPASCAL]

Versuch mal den Fensterclassennamen also nicht den Fenstertitel des Games herrauszufinden.
zB. mit EDA oder [google]WinSpy++[/google] diesen herauszufinden. der Fenstertitel ist nicht immer eindeutig.

Nutze danach Findwindow mit beiden Parametern.

[MaToBe]

Delphi-Quellcode:

procedure TfrmMain.Mousefreeze (wHandle : HWND);
var Rect : TRect;
begin
  GetClientRect(wHandle, Rect);
//Die Werte dann eventuell etwas anpassen
//Rect.Left:=Rect.Left+vLeft;
//Rect.Right:=Rect.Right-vRight;
//Rect.Top:=Rect.Top+vTop;
//Rect.Bottom:=Rect.Bottom-vBottom;
  ClipCursor(@Rect);
end;

warum sagt er mir hier als Fehler: Zu viele Parameter?

Hier ist es doch so definiert oder?

[himitsu]

aber hier ist es anders deklariert
function TCustomForm.GetClientRect: TRect; Was dort die gloable Variable war, ist bei dir die globale Funktion aus der Windows.pas:
http://www.delphipraxis.net/internal...ghlight=global

Und darum paßt hierzu auch diese Antwort:

Zitat:

PS: TDE zeigt sogar an wo und wie das "Position" deklariert wurde.
Dort hätte man mal zuerst nachsehen sollen, als dieses Problem auftrat.

[MaToBe]

dann müsste es doch eigentlich so sein oder?

Delphi-Quellcode:

procedure TfrmMain.Mousefreeze (wHandle : HWND);
var Rect : TRect;
begin
  Rect := GetClientRect(wHandle);
//Die Werte dann eventuell etwas anpassen
//Rect.Left:=Rect.Left+vLeft;
//Rect.Right:=Rect.Right-vRight;
//Rect.Top:=Rect.Top+vTop;
//Rect.Bottom:=Rect.Bottom-vBottom;
  ClipCursor(@Rect);
end;

trotzdem: Zu viele Parameter

[implementation]

entweder: Rect := Self.GetClientRect();
oder: Windows.GetClientRect(Handle,Rect);

[himitsu]

DIESES GetClientRect liefert nur das ClientRect von der Form
und es möchte eben keine Parameter haben,
denn es weiß ja was es will und braucht dieses nicht mitgeteilt zu bekommen.

In diesem Fall wäre die Angabe eines Namespace recht hilfreich.
Windows.GetClientRect(wHandle, Rect);

[DeddyH]

Qualifizier den Aufruf doch einfach.

Delphi-Quellcode:

procedure TfrmMain.Mousefreeze (wHandle : HWND);
var Rect : TRect;
begin
  Windows.GetClientRect(wHandle, Rect);  //Unit davorschreiben
//Die Werte dann eventuell etwas anpassen
//Rect.Left:=Rect.Left+vLeft;
//Rect.Right:=Rect.Right-vRight;
//Rect.Top:=Rect.Top+vTop;
//Rect.Bottom:=Rect.Bottom-vBottom;
  ClipCursor(@Rect);
end;

[edit] 2. Seite übersehen [/edit]