ถัดไป จำกัดพื้นที่การเคลื่อนไหวของเมาส์ไว้ที่ (100,100,200,200)
varrect:TRect;
เริ่ม
ตรงซ้าย:=100;
ตรงด้านบน:=100;
ตรงด้านล่าง:=200;
ตรงขวา:=200;
windows.ClipCursor(@rect);
ข้อมูลต่อไปนี้จะคืนค่าพื้นที่การเคลื่อนไหวของเมาส์
windows.คลิปเคอร์เซอร์(0);
ไม่จำเป็นต้องยกตัวอย่างเฉพาะเจาะจง มันง่ายมาก ฮิ ฮิ ฮิ ฮิ
ความช่วยเหลือใน Delphi บอกว่า:
ฟังก์ชัน ClipCursor จะจำกัดเคอร์เซอร์ให้อยู่ในพื้นที่สี่เหลี่ยมบนหน้าจอ
หากตำแหน่งเคอร์เซอร์ตามมา (กำหนดโดยฟังก์ชัน SetCursorPos หรือเมาส์)
อยู่นอกสี่เหลี่ยม Windows จะปรับตำแหน่งให้คงไว้โดยอัตโนมัติ
เคอร์เซอร์ภายในพื้นที่สี่เหลี่ยม
BOOL คลิปเคอร์เซอร์(
CONST RECT *lPRect // ตัวชี้ไปยังโครงสร้างที่มีสี่เหลี่ยม
-
พารามิเตอร์
แอลพีอาร์ซี
ชี้ไปที่โครงสร้าง RECT ที่ประกอบด้วยพิกัดหน้าจอของด้านบน-
มุมซ้ายและขวาล่างของสี่เหลี่ยมที่จำกัด หากเป็นพารามิเตอร์นี้
NULL เคอร์เซอร์สามารถเลื่อนไปทุกที่บนหน้าจอได้อย่างอิสระ
ส่งกลับค่า
ถ้าฟังก์ชันสำเร็จ ค่าที่ส่งกลับไม่ใช่ศูนย์
ถ้าฟังก์ชันล้มเหลว ค่าที่ส่งกลับเป็นศูนย์ เมื่อต้องการรับข้อมูลข้อผิดพลาดเพิ่มเติม ให้เรียก GetLastError
หมายเหตุ
เคอร์เซอร์เป็นทรัพยากรที่ใช้ร่วมกัน หากแอปพลิเคชันจำกัดเคอร์เซอร์ จะต้อง
ปล่อยเคอร์เซอร์โดยใช้ ClipCursor ก่อนที่จะละทิ้งการควบคุมไปที่อื่น
แอปพลิเคชัน.
กระบวนการเรียกต้องมีการเข้าถึง WINSTA_WRITEATTRIBUTES ไปยังสถานีหน้าต่าง