|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.626 Beiträge
Delphi 12 Athens
|
Re: Maus in Fenster halten
15. Feb 2010, 11:49
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]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|