โปรแกรม Windows ที่เขียนอย่างระมัดระวังแสดงถึงข้อควรระวังในการเริ่มต้นที่เรียกว่า Splash Screen การใช้เนื้อหาเล็กน้อยคุณสามารถเพิ่มสีสันให้กับการแสดงผลของโปรแกรมได้มาก
เนื่องจากโครงการสร้างหน้าต่างหลักของโปรแกรมและหน้าจอสปัตเตอร์เริ่มต้นจะต้องปรากฏขึ้นก่อนที่จะสร้างหน้าต่างหลักไฟล์โครงการจะต้องสร้างหน้าจอเริ่มต้นของตัวเอง ซึ่งหมายความว่าผู้ใช้จะต้องแก้ไขซอร์สโค้ดเพื่อสร้างไฟล์โครงการซึ่งมักไม่จำเป็นในการเขียนโปรแกรม Delphi กระบวนการต่อไปนี้แนะนำกระบวนการตั้งค่าหน้าจอสปัตเตอร์
1. เริ่มโครงการใหม่ ตั้งชื่อรูปแบบ mainform และตั้งค่าคุณสมบัติคำบรรยายภาพเป็น SplashIndemo บันทึกโครงการนี้ในไดเรกทอรีเช่น C: ProjectSplashin ตั้งชื่อหน่วยหลักหลักและตั้งชื่อไฟล์โครงการ Splashin
2. แทรกองค์ประกอบปุ่มใน MainForm เปลี่ยนคุณสมบัติชื่อของปุ่มเป็น ExitButton และคุณสมบัติคำบรรยายภาพเพื่อออก สร้างโปรเซสเซอร์สำหรับเหตุการณ์ onclick ของ ExitButton แทรกคำสั่งปิดระหว่างคำหลักเริ่มต้นและสิ้นสุดของกระบวนการ
3. เลือกไฟล์ | คำสั่งฟอร์มใหม่หรือคลิกปุ่มความเร็วฟอร์มใหม่ เพิ่มแบบฟอร์มใหม่
4. เปลี่ยนคุณสมบัติชื่อของแบบฟอร์มนี้เป็น Splashform และลบคุณสมบัติคำบรรยายภาพ นอกจากนี้ให้เปลี่ยนทรัพย์สินพรมแดนเป็น bsnone และตั้งค่าย่อยทั้งสามภายใต้ bordericons เป็นเท็จ
5. บันทึกโครงการนี้ เมื่อ Delphi แจ้งให้ผู้อ่านระบุชื่อไฟล์หน่วยตรวจสอบให้แน่ใจว่าไดเรกทอรีปัจจุบันเป็นไดเรกทอรีที่ถูกต้อง ป้อนสาดสำหรับชื่อไฟล์หน่วยของ Splashform
6. ตั้งค่าคุณสมบัติที่เปิดใช้งานของ Splashform เป็น FALSE นี่เป็นหนึ่งในกรณีที่หายากที่ผู้ใช้ไม่ต้องการให้คำสั่งแป้นพิมพ์และเมาส์กับ Windows ในตัวอย่างนี้เราต้องการให้โปรแกรมสามารถควบคุมการแสดงผลของ Splashform ได้อย่างเต็มที่
7. เนื่องจากหน้าต่างไม่มีโครงร่างให้แทรกวัตถุส่วนประกอบมุมจากคลาสส่วนประกอบเพิ่มเติม สิ่งนี้ช่วยกำหนดขอบของหน้าต่าง ตั้งค่าคุณสมบัติการจัดแนวของ bevel1 เป็น Alclient ในเวลาเดียวกันเปลี่ยนคุณสมบัติรูปร่างของวัตถุเป็น bsframe และเปลี่ยนคุณสมบัติสไตล์เป็น bsraised ค่าเหล่านี้ถูกกำหนดโดยผู้ใช้
8. แทรกส่วนประกอบที่คุณต้องการใช้ใน splashform อย่าแทรกปุ่มใด ๆ หรือการควบคุมแบบโต้ตอบอื่น ๆ ที่นี่ แอปพลิเคชันเองจะแสดงและลบกล่องโต้ตอบเริ่มต้นสปัตเตอร์
9. เลือกเมนูโครงการ ไฮไลต์เมนูป๊อปอัพโปรเจ็กต์โปรเจ็กต์ เลือกคำสั่งตัวเลือก ในกล่องโต้ตอบตัวเลือกโครงการที่สร้างขึ้นให้เลือกฉลากหน้าแบบฟอร์ม โปรดทราบว่า mainform และ splashform อยู่ในรายการรูปแบบที่สร้างขึ้นโดยอัตโนมัติ ไฮไลต์แต่ละรูปแบบและคลิกปุ่มเมาส์ขวาเพื่อย้ายไปยังแบบฟอร์มที่มีอยู่ แบบฟอร์ม Delphi ทั้งหมดจะถูกสร้างขึ้นโดยอัตโนมัติในหน่วยความจำที่รันไทม์ซึ่งใช้ทรัพยากรหน่วยความจำและระบบ ในกรณีเช่นนี้โปรแกรมจะสร้างแบบฟอร์มที่รันไทม์และผู้อ่านควรลบแบบฟอร์มออกจากรายการที่สร้างขึ้นโดยอัตโนมัติ ปิดหน้าต่าง ProjectOptions
10. ถัดไปแก้ไขซอร์สโค้ดของโครงการเพื่อแสดงกล่องโต้ตอบสปัตเตอร์ก่อนที่จะแสดงหน้าต่างหลัก ที่นี่คุณต้องแทรกคำสั่งในไฟล์โครงการเพื่อให้ตรงกับไฟล์โครงการ Splash.dpr ซอร์สโค้ดโครงการมีดังนี้:
โครงการโครงการ 3;
ใช้
แบบฟอร์ม
หลักใน 'main.pas' {mainform}
Splash ใน 'splash.pas' {splashform};
{$ r *.res}
เริ่ม
splashform: = tsplashform.create (แอปพลิเคชัน);
splashform.show;
splashform.update;
application.createform (tmainform, mainform);
splashform.close;
Application.run;
จบ.
11. หากโปรแกรมรวบรวมและรันในเวลานี้มันจะแสดงและลบกล่องโต้ตอบเริ่มต้นสปัตเตอร์อย่างรวดเร็วเพื่อให้ผู้ใช้อาจไม่มีโอกาสได้เห็น เพื่อบังคับให้กล่องโต้ตอบยังคงมองเห็นได้สองสามวินาทีให้เลือกรูปแบบหลักของโปรแกรม สร้างโปรเซสเซอร์สำหรับคำสั่ง onCreate ของแบบฟอร์ม เพิ่มตัวแปรจำนวนเต็มยาวที่เรียกว่าหยุดเวลาก่อนคำหลัก แทรกสองข้อความระหว่างการเริ่มต้นและสิ้นสุด: หนึ่งคือการโทรไปยังฟังก์ชัน windows getTickCount ตั้งเวลาหยุดเป็นจำนวนวินาทีที่ Windows กำลังทำงานอยู่ รายการโปรแกรมมีดังนี้:
หน่วยหลัก;
ส่วนต่อประสาน
ใช้
Windows, ข้อความ, sysutils, คลาส, กราฟิก, การควบคุม, รูปแบบ, กล่องโต้ตอบ
stdctrls;
พิมพ์
tmainform = class (tform)
ExitButton: Tbutton;
ขั้นตอน ExitButtonClick (ผู้ส่ง: tobject);
โพรซีเดอร์แบบฟอร์ม (ผู้ส่ง: tobject);
ส่วนตัว
{ประกาศส่วนตัว}
สาธารณะ
{ประกาศสาธารณะ}
จบ;
วาจา
mainform: tmainform;
การดำเนินการ
{$ r *.dfm}
ขั้นตอน tmainform.exitbuttonclick (ผู้ส่ง: tobject);
เริ่ม
ปิด;
จบ;
ขั้นตอน tmainform.formCreate (ผู้ส่ง: tobject);
วาจา
หยุดเวลา: Longint;
เริ่ม
stoptime: = getTickCount div 1000;
ในขณะที่ ((getTickCount div 1000) ＜(หยุดเวลา+2)) ทำ
นอนหลับ (1);
จบ;
จบ.
12. กด F9 เพื่อรวบรวมและเรียกใช้โปรแกรม