TSizeCtrl

Tsizectrl

ส่วนประกอบ Delphi ที่ไม่ใช่ภาพเพื่อเปิดใช้งานการเคลื่อนไหวของรันไทม์และปรับขนาดการควบคุม

ผู้แต่งต้นฉบับ: Angus Johnson

http://angusj.com/delphi/

http://angusj.com/delphi/sizectrl.html

ทดสอบ:

Delphi 3, 4, 5, 6, 7, 10.1 Berlin, 10.2 Tokyo

เวอร์ชัน:

นี่คือส้อมตั้งแต่รุ่นสุดท้ายของผู้แต่ง (7.2 - 3 กันยายน 2549)

ภาพหน้าจอส่วนประกอบ TSIZECTL:

การปรับขนาด:

ย้าย:

การควบคุมแบบจัดตำแหน่งได้ปิดการใช้งาน "ปุ่มคว้า" ตามเส้นขอบคงที่:

การควบคุมหลายตัวสามารถเคลื่อนย้ายหรือปรับขนาดด้วยกัน:

การใช้งานขั้นพื้นฐาน:

1. เพิ่มส่วนประกอบ TSIZECTRL (SIZECTRL1) ลงในแบบฟอร์มของคุณ
2. ตั้งค่าคุณสมบัติ Sizectrl1 (ปุ่มสี ฯลฯ ) ตามที่ต้องการ
3. กำหนดวิธีการจัดกิจกรรม (เริ่มต้นระหว่างเหตุการณ์ขนาด/การย้าย) ตามที่ต้องการ
4. ในวิธีการ onCreate ของแบบฟอร์ม SIZECTRL1.REGISTERCONTROL () เป้าหมายที่เป็นไปได้ทั้งหมด
5. ในวิธีการ menuitem ที่ได้รับมอบหมายสลับคุณสมบัติ sizectrl1.enabled
6. เมื่อเปิดใช้งาน:
   • คลิกหรือแท็บเพื่อเลือกเป้าหมาย
   • กดปุ่ม Shift ค้างไว้เพื่อเลือกหลายเป้าหมาย
   • ปรับขนาดเป้าหมายโดยคลิกและลากปุ่มปรับขนาดเป้าหมายหรือโดยกดปุ่ม Shift ลงในขณะที่ใช้ปุ่มลูกศร
   • ย้ายการควบคุมโดยคลิกและลากเป้าหมายหรือใช้ปุ่มลูกศร

หมายเหตุเบ็ดเตล็ด:

การจับข้อความ WM_SetCursor ของส่วนหัวของ ListView ต้องใช้การเชื่อมต่อตัวจัดการข้อความของส่วนหัวด้วย ฉันไม่คิดว่าการปรับปรุงเล็กน้อยในการจัดการเคอร์เซอร์จะแสดงให้เห็นถึงความพยายามในการเขียนโปรแกรมพิเศษ