마우스 영역 지정하기 (마우스 가두기)

procedure Tfrm_Main.MouseLock;
var
    Rect : TRect;
begin
   Rect.TopLeft.X   := frm_Main.Left;
   Rect.TopLeft.Y   := frm_Main.Top;
   Rect.BottomRight.X := frm_Main.Left + frm_Main.Width;
   Rect.BottomRight.Y := frm_Main.Top + frm_Main.Height;

   ClipCursor(@Rect);   // 마우스 활동범위를 폼 영역안으로 제한
end;