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;