วิธีใช้ปุ่มโปร่งใสใน Delphi

เรียนผู้อ่านในการเขียนโปรแกรม Delphi จริงเราสามารถใช้การควบคุมปุ่มเพื่อสร้างปุ่มปุ่มในโปรแกรม แต่เมื่อใช้ซอฟต์แวร์อื่นเรามักจะเห็นผลของปุ่มโปร่งใส ดังนั้นจะบรรลุผลของปุ่มโปร่งใสใน Delphi ได้อย่างไร? ผู้เขียนค้นหาอินเทอร์เน็ตเป็นเวลานาน แต่ไม่พบการควบคุมในพื้นที่นี้ดังนั้นเขาจึงตัดสินใจที่จะ DIY ด้วยตัวเอง

ในการใช้ปุ่มโปร่งใสจำเป็นต้องมีการควบคุมสามแบบในภาพรวม - รูปภาพฉลากและมุมเอียง การควบคุมภาพถูกวางไว้เพื่อเน้นเอฟเฟกต์โปร่งใส (เป็นพื้นหลัง) และฉลากคือการแสดงคำบนคีย์ มุมแสดงแสดงกล่องสามมิติ (การควบคุมนี้สามารถบรรลุผลของการแสดงเอฟเฟกต์ที่ยื่นออกมาเมื่อเมาส์เลื่อนไปที่ปุ่ม) ลองดูที่ขั้นตอนเฉพาะด้านล่าง

1. กรุณาสร้างไฟล์โครงการใน delphi6.0 ก่อน

2. โปรดเลือกรูปภาพก่อนและให้ความสนใจกับขนาดของมัน จากนั้นปรับแบบฟอร์มให้มีขนาดเท่ากันกับภาพ

3 จากนั้นวางการควบคุมภาพบนแบบฟอร์มและปรับแอตทริบิวต์การจัดแนวเป็นอัลลิเซนต์ จากนั้นเลือกคุณสมบัติรูปภาพและคลิกปุ่มเล็ก ๆ

4. จากนั้นวางตัวควบคุมฉลากบนแบบฟอร์มและตั้งค่าเนื้อหาข้อความและขนาดตัวอักษรของปุ่มอย่างสมเหตุสมผล คลิกคุณสมบัติโปร่งใสเพื่อตั้งค่าฉลากเป็นโปร่งใส

5. ในที่สุดให้วางการควบคุมมุมแบบฟอร์ม ตั้งค่าแอตทริบิวต์รูปร่างเป็น bsbox จากนั้นตั้งค่าแอตทริบิวต์สไตล์เป็น bsraise (นี่เป็นเอฟเฟกต์ฉับพลัน) และเปลี่ยนแอตทริบิวต์ที่มองเห็นได้เป็นเท็จ (โปรแกรมนี้ไม่สามารถมองเห็นได้เมื่อทำงาน)

6. ตั้งค่าตำแหน่งของการควบคุมฉลากและมุมเอียงอย่างสมเหตุสมผลเพื่อให้ตำแหน่งและตำแหน่งของการควบคุมแบบเอียงและฉลากนั้นเหมือนกัน คุณสามารถใช้ลูกศร Ctrl+เพื่อเปลี่ยนการควบคุมและใช้ลูกศร Shift+เพื่อปรับขนาดการควบคุม

มาเริ่มการเขียนโปรแกรมตอนนี้

ขั้นตอน TFORM1.LABEL1MOUSEMOVE (ผู้ส่ง: TOBJECT; Shift: TSHIFTSTATE; X, Y: Integer); ว่าเหตุการณ์ OnClick สามารถดำเนินการได้อย่างต่อเนื่อง; SHIFT: TSHIFTSTATE; X, Y: Integer);

นอกจากนี้เพื่อให้แน่ใจว่าปุ่มโปร่งใสไม่ได้ดูน่าเบื่อหน่ายมากคุณยังสามารถวางไอคอนใกล้กับการควบคุมฉลากซึ่งจะทำให้ผู้ใช้ดูชัดเจนยิ่งขึ้น