ClipCursor function ı çok ilginç bir function dır bu function ile fare işaretçisini istediğiniz yere hapsedebilirsiniz. örnekler

not  formunuzun OnClose olay işleyicisinde cursor ı serbest bırakmayı unutmayınızClipCursor(nil);
Örnek -1 fareyi form içerisine hapsedelim

procedure bilmeme_ne;
var
  Rect: TRect; // cursor ın hapsedeileceği alan bilgisini tutacak TRect(angle) tipinden değişken
begin
  Rect.Left := Left;  // ilgili bölge nin sağ,sol ,alt,üst noktalarını formunkine ayaralıyoruz
  Rect.Top := Top;
  Rect.Right := Left+Width;
  Rect.Bottom := Top+Height;
  ClipCursor(@Rect); // süpriz
end;


örnek -2 fare işaretçisini button içerisine hapsedelim

procedure bilmem_ne_2;
var
  Rect: TRect; // yukarıda anlattık
  var btnPoint: TPoint; // butonun koordinatlarını bulmak için tanımlanmış değişken
begin
   btnPoint:=BitBtn3.ClientToScreen(Point(0,0)); // butonun ekrandaki yerini bulup değeri değişkene atıyouz
   Rect.Left := btnPoint.x; // koordinatları Rect e atıyoruz
   Rect.Top := btnPoint.y;
   Rect.Right := Rect.Left + BitBtn3.Width;
   Rect.Bottom := Rect.Top + BitBtn3.Height;
   ClipCursor(@Rect); // ve fareyi button içerisine hapsediyoruz.
end;


not: tekrar söylüyorum formu kapatırken mutlaka fareyi serbest bırakın yani ClipCursor(nil); kullanın