Thema: Delphi Maus in Fenster halten

Einzelnen Beitrag anzeigen

Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#8

Re: Maus in Fenster halten

  Alt 15. Nov 2009, 17:23
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
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
  Mit Zitat antworten Zitat