คุณรู้สึกว่าเมนูที่ Delphi จัดทำนั้นไม่น่าดึงดูดใจในการใช้งานหรือไม่? คุณสามารถใช้การควบคุม VCL ของ Delphi เพื่อใช้เมนูสไตล์ IE! คุณสมบัติต่างๆ ได้แก่: ปุ่มลอย, การลากตำแหน่ง, กราฟิก... ซึ่งทั้งหมดนี้ไม่ต้องการการควบคุมจากบุคคลที่สามหรือการเขียนโปรแกรมจำนวนมาก!
การใช้เมนูสไตล์ IE ต้องมีขั้นตอนต่อไปนี้:
1. กำหนดเมนูธรรมดาในแบบปกติ
2. ซ่อนเมนูที่กำหนดจากหน้าต่าง
3. เพิ่ม CoolBar และ ToolBar ลงในหน้าต่างเป็นแถบเมนู
4. แมปเมนูไปที่ปุ่ม ToolBar
5. โปรแกรมสำหรับเอฟเฟกต์พิเศษ (ไม่บังคับ)
ขั้นตอนแรกคือการกำหนดเมนูปกติด้วยวิธีปกติ
เพิ่มตัวควบคุม TMainMenu ให้กับหน้าต่าง จากนั้นกำหนดรายการเมนู ไอคอน ปุ่มทางลัด ฯลฯ ตามปกติ
ขั้นตอนที่สองคือการซ่อนเมนูที่กำหนดจากหน้าต่าง
เมนูที่กำหนดจะแสดงบนหน้าต่างโดยอัตโนมัติ เนื่องจากเมื่อมีการเพิ่มตัวควบคุม TMainMenu ลงในหน้าต่าง คุณสมบัติเมนูของวัตถุ TForm จะถูกตั้งค่าเป็นวัตถุ TMainMenu ที่เพิ่มโดยอัตโนมัติ หากต้องการใช้เมนูที่เรากำหนดจะต้องซ่อนเมนูนี้ไว้ ล้าง TForm.Menu และเมนูที่กำหนดจะไม่แสดงโดยอัตโนมัติ
ขั้นตอนที่สามคือการเพิ่ม CoolBar และ ToolBar ลงในหน้าต่างเป็นแถบเมนู
เพิ่มตัวควบคุม TCoolBar ไปที่หน้าต่าง และจากนั้น วางตัวควบคุม TToolBar ไว้ข้างใน ตั้งค่าคุณสมบัติ AutoSize ของ TCoolBar และ TToolBar เป็น True ตั้งค่าคุณสมบัติ Flat ของ TToolBar เป็น True และตั้งค่าคุณสมบัติ ShowCaptions ของ TToolBar เป็น True ด้วยวิธีนี้ แถบเมนูว่างจะปรากฏขึ้นเหนือหน้าต่าง ต่อไปเราจะเพิ่มรายการเมนูลงในแถบเมนูนี้
ขั้นตอนที่สี่คือการแมปเมนูกับปุ่ม ToolBar
คลิกขวาที่ TToolBar แล้วเลือกปุ่มใหม่จากเมนูป๊อปอัปเพื่อเพิ่มปุ่มแรกลงในแถบเมนู ตั้งค่าคุณสมบัติ AutoSize และคุณสมบัติ Grouped ของปุ่มนี้เป็น True จากนั้นเปลี่ยนคุณสมบัติคำอธิบายภาพเป็นข้อความของรายการเมนู ตัวอย่างเช่น คุณสมบัติคำอธิบายภาพอาจถูกตั้งค่าเป็น &ไฟล์ สุดท้าย ให้ตั้งค่าคุณสมบัติ MenuItem ของปุ่มนี้เป็นรายการเมนูที่เกี่ยวข้องซึ่งกำหนดไว้ใน TMainMenu ตัวอย่างเช่น คุณสมบัติ MenuItem อาจถูกตั้งค่าเป็น mnuFile หลังจากการตั้งค่าเหล่านี้ ปุ่มจะเชื่อมโยงกับรายการเมนู และเมนูที่เกี่ยวข้องจะปรากฏขึ้นเมื่อคลิกปุ่ม
ขั้นตอนที่ห้าคือการตั้งโปรแกรมเอฟเฟกต์พิเศษ (ไม่บังคับ)
หลังจากสี่ขั้นตอนก่อนหน้านี้ เมนูใหม่ก็สามารถทำงานได้ตามปกติแล้ว อย่างไรก็ตาม หากคุณต้องการใช้เอฟเฟกต์พิเศษอื่นๆ เช่น การลากและการวางตำแหน่งของ CoolBar คุณจะต้องทำงานเขียนโปรแกรมเพิ่มเติม เนื้อหาเหล่านี้ไม่อยู่ในหัวข้อของบทความนี้อีกต่อไป และจะไม่ถูกกล่าวถึง ผู้อ่านที่สนใจสามารถดูความช่วยเหลือจาก Delphi ได้
ผู้อ่านสามารถแสดงความคิดเห็นของตนเองเกี่ยวกับบทความนี้ได้