หากคุณใช้ "Kingsoft PowerWord" หรือ "Orient Express" คุณจะสนใจคำบรรยายแบบต่อเนื่องในหน้าต่าง "เกี่ยวกับ" จริงๆ แล้ว ฟังก์ชันนี้สามารถรับรู้ได้อย่างง่ายดายโดยใช้ตัวควบคุม Timer ใน Delphi
1. แนวคิดการออกแบบ
ขั้นแรก วางตัวควบคุมแผงควบคุมบนแบบฟอร์มและวางข้อความที่ต้องการแสดงในตัวควบคุมแผงควบคุม จากนั้น ตำแหน่งของตัวควบคุมแผงควบคุมสามารถเปลี่ยนแปลงได้อย่างต่อเนื่องภายในระยะเวลาหนึ่งเพื่อให้บรรลุผลของการหมุนผ่านตัวควบคุมตัวจับเวลา คำบรรยาย
2. วิธีการนำไปปฏิบัติ
1. สร้างแบบฟอร์มใหม่และตั้งค่าคุณสมบัติดังต่อไปนี้:
ชื่อ:frmAbout1
เลื่อนอัตโนมัติ: เท็จ
2. วางแผงควบคุมบนแบบฟอร์ม ชื่อเริ่มต้นคือ Panel1 และตั้งค่าคุณสมบัติดังต่อไปนี้:
เอียงด้านนอก:bvไม่มี
คำบรรยายภาพ: (ตั้งค่าเป็นว่าง)
ปรับความสูงและความกว้างของ Panel1 เพื่อให้เป็นแถบแนวตั้ง ความสูงขึ้นอยู่กับเนื้อหาที่จะแสดง (อาจมากกว่าความสูงของแบบฟอร์มก็ได้)
3. วางตัวควบคุมป้ายกำกับบน Panel1 เพื่อแสดงข้อความ แน่นอนว่าคุณยังสามารถวางตัวควบคุมรูปภาพไว้เพื่อแสดงรูปภาพได้ แต่ขนาดของรูปภาพไม่ควรใหญ่เกินไป มิฉะนั้นจะส่งผลต่อเอฟเฟ็กต์การแสดงผล
4. วางตัวควบคุมตัวจับเวลาบนฟอร์ม ชื่อเริ่มต้นคือ Timer1 ตั้งค่าคุณสมบัติ Interval เป็น 50 และป้อนรหัสต่อไปนี้ในเหตุการณ์ OnTimer:
ถ้า Panel1.top>-Panel1.height แล้ว
Panel1.top:=Panel1.top-1
อื่น
Panel1.top:=frmAbout1.height-35;
{ตรวจสอบว่า Panel1 ได้ย้ายไปที่ด้านบนของแบบฟอร์มหรือไม่ หากไม่ ให้ย้ายขึ้นหนึ่งพิกเซล หากเป็นเช่นนั้น ให้ย้าย Panel1 ไปที่ด้านล่างของแบบฟอร์มแล้วแสดงคำบรรยายแบบวนซ้ำ}
5. วางตัวควบคุมปุ่มบนแบบฟอร์ม ตั้งค่าคุณสมบัติคำอธิบายภาพเป็น "ตกลง" และป้อนรหัสต่อไปนี้ในเหตุการณ์ OnClick:
ปิด;{ปิดแบบฟอร์ม}
3. ปรับปรุงการวิเคราะห์
ข้างต้นเป็นขั้นตอนการใช้งานง่ายๆ ของคำบรรยายแบบต่อเนื่อง แต่ยังมีสิ่งหนึ่งที่ต้องปรับปรุงเพิ่มเติม: หากแบบฟอร์มใช้รูปภาพเป็นพื้นหลัง ตัวควบคุมแผงควบคุมจะบล็อกส่วนหนึ่งของรูปแบบพื้นหลัง ในความเป็นจริง เพื่อแก้ไขปัญหานี้ เราไม่สามารถใช้ตัวควบคุมแผงควบคุมได้เลย แต่วางตัวควบคุมป้ายกำกับบนแบบฟอร์มโดยตรง ตั้งค่าคุณสมบัติโปร่งใสของตัวควบคุมป้ายกำกับเป็น True จากนั้นควบคุมตัวควบคุมป้ายกำกับเหล่านี้โดยตรงผ่านตัวจับเวลา การควบคุมการเคลื่อนไหว เนื่องจากข้อจำกัดของพื้นที่ ผู้เขียนจะไม่อธิบายรายละเอียดที่นี่