Maus disablen

[Jim Beam]

Wie kann ich die maus innerhalb und ausserhalb meines projekts , also windowsweit disablen???
wenn ich showcursor(false) angebe, sehe ich den coursor zwar innerhalb meines Projekt-Fensters, aber ausserhalb nicht...
Naja.. vielleicht habt ihr eine Lösung..

Tschüss
Jim

[Hagen Reddmann]

Hi

<pre>

procedure TForm1.DisableMouse:
var
R: TRect;
begin
R := Rect(-1,-1,0,0);
SetCapture(handle);
ClipCursor(R);
ShowCursor(False);
end;

</pre>

Gruß Hage