---- Delphi เป็นภาษาการเขียนโปรแกรมเชิงวัตถุ ในบรรดาคลาสมากมายที่มีอยู่ใน Delphi, Tapplication เป็นคลาสที่มีบทบาทสำคัญมาก คลาส tapplication เป็นคลาสที่ใช้เพื่ออธิบายแอปพลิเคชันที่รวบรวมโดย Delphi ผ่านการใช้งานที่ยืดหยุ่นของคลาสนี้สามารถเตรียมโปรแกรมที่โดดเด่นจำนวนมากได้ มายกตัวอย่างในเรื่องนี้กันเถอะ
---- 1 ตรวจพบว่าโปรแกรม Windows ปัจจุบันเปิดใช้งานหรือไม่:
---- คลาส tapplication มีคุณสมบัติ-ใช้งานอยู่ซึ่งสามารถอธิบายได้ว่าโปรแกรมที่กำลังทำงานอยู่นั้นเปิดใช้งานและกลายเป็นจุดสนใจของ Windows หรือไม่ รหัสตรวจจับมีดังนี้:
ifapplication.active = falsethen
ShowMessage ('หน้าต่างปัจจุบันไม่เปิดใช้งาน');
---- 2 รับชื่อของโปรแกรมปัจจุบัน:
---- คุณสมบัติ exename ของคลาส tapplication สามารถส่งคืนชื่อไฟล์ทั้งหมด (รวมถึงเส้นทาง) ของโปรแกรมปฏิบัติการนี้ รหัสที่ใช้งานมีดังนี้:
--- showMessage (application.exename);
---- 3 เปลี่ยนชื่อเมื่อโปรแกรมลดลง
---- ถ้าคุณสังเกตอย่างรอบคอบคุณจะพบว่าชื่อของบางโปรแกรมไม่สอดคล้องกับชื่อของโปรแกรมโดยเฉพาะอย่างยิ่งในบางโปรแกรมภาษาอังกฤษ มันมักจะกลายเป็นตัวอักษรสองสามตัว สิ่งที่ใช้งานได้ตรงกลางคือคุณสมบัติชื่อของคลาส tapplication คุณสมบัตินี้กำหนดชื่อเมื่อโปรแกรมถูกย่อให้เล็กสุดและชื่อของแถบชื่อเรื่องในหน้าต่างจะถูกกำหนดโดยคุณสมบัติคำบรรยายภาพของแบบฟอร์ม รหัสมีดังนี้:
form1.caption: = 'ชื่อเรื่องของหน้าต่าง';
Application.title: = 'ชื่อเรื่องของโปรแกรม';
---- อันที่จริงเรายังสามารถระบุค่าแอตทริบิวต์ชื่อเรื่องของคลาส tapplication เมื่อการเขียนโปรแกรม วิธีการใช้งานคือการดึงเมนูโครงการลงในสภาพแวดล้อมการพัฒนาและเลือกเมนูตัวเลือกและกล่องโต้ตอบดังแสดงในรูปที่ 1 (ละเว้น) เอฟเฟกต์นี้สามารถทำได้โดยการกรอกคอลัมน์ชื่อเรื่องของกล่องโต้ตอบนี้ และเนื่องจากไฟล์โครงการทั่วไปมีชื่อเป็นภาษาอังกฤษชื่อของกล่องข้อความจะปรากฏขึ้นในระหว่างการดำเนินการโปรแกรมเป็นภาษาอังกฤษ แต่หลังจากระบุคุณสมบัตินี้ชื่อของ Windows ข้อความทั้งหมดของโปรแกรมนี้จะกลายเป็นค่าของชื่อเรื่อง สิ่งนี้ทำให้โปรแกรมดูสมบูรณ์ยิ่งขึ้น
---- 4 ระบุหน้าต่างหลักของโปรแกรม
--- อินเทอร์เฟซในระบบ Windows เป็น Windows ทั้งหมด แต่โดยทั่วไปแล้วมีหน้าต่างหลัก คุณสมบัติหลักของ tapplication สามารถกลับไปที่หน้าต่างหลักของโปรแกรม
---- 5 กล่องข้อความแสดงผล
---- Delphi มีฟังก์ชั่นและขั้นตอนมากมายสำหรับการแสดงกล่องข้อความ หากคุณต้องการสร้างปุ่มด้วยการแสดงผลภาษาจีนคุณจะต้องใช้ฟังก์ชั่น MessageBox ที่ช่วยในการเข้าถึง ต้นแบบของฟังก์ชั่นนี้มีดังนี้:
---- functionMessageBox (ข้อความ, คำบรรยาย: ถ่าน; ธง: Longint): จำนวนเต็ม
-
---- ในฟังก์ชั่นนี้สองรายการแรกคือข้อมูลพรอมต์ที่แสดงและชื่อของหน้าต่างข้อความ ผู้ใช้ที่คุ้นเคยกับ Delphi อาจสังเกตเห็นว่าฟังก์ชั่นนี้แตกต่างจากฟังก์ชั่นของชื่อเดียวกันกับ Delphi3 เล็กน้อย เป็นพอยน์เตอร์ เราควรให้ความสนใจกับความแตกต่างเมื่อใช้งาน
---- application.messagebox ('คุณต้องการบันทึกหรือไม่', 'ข้อความแจ้ง', mb_okcancel);
----- ในที่สุดคำอธิบายบางอย่างจะได้รับเกี่ยวกับค่าส่งคืนของฟังก์ชั่นนี้ ถูกกด
---- ความหมายของปุ่มในตารางที่ 1 และค่าที่กำหนดไว้ในระบบ
ความหมายของปุ่มค่าที่ส่งคืนโดยฟังก์ชั่นเมื่อกดปุ่มนี้
idabort 3
Idcancel 2
idignore 5
Idno 7
idok 1
Idretry 4
Idyes 6
---- 6 ควบคุมขนาดของหน้าต่าง
--- โดยทั่วไปที่จับหน้าต่างสามารถใช้เพื่อปรับขนาดของหน้าต่าง แต่ยังสามารถใช้เพื่อปรับขนาดของหน้าต่างโดยใช้กิจกรรมแอปพลิเคชัน วิธีการใช้งานคือการใช้สองกระบวนการต่อไปนี้:
Application.minimized;
Application.restore;
--- กระบวนการก่อนหน้านี้ใช้เพื่อลดหน้าต่างหลักของโปรแกรมให้น้อยที่สุดและกระบวนการหลังใช้เพื่อกู้คืนหน้าต่างย่อเล็กสุดให้เป็นขนาดดั้งเดิม
---- 7 ลิงค์ไฟล์ช่วยเหลือออนไลน์
---- คุณสมบัติ CurrentHelPFile ของแอปพลิเคชันสามารถระบุชื่อไฟล์ของไฟล์ช่วยเหลือออนไลน์ที่ใช้โดยโปรแกรมปัจจุบัน คุณสมบัตินี้มักจะใช้ร่วมกับวิธีอื่น เป็นตัวอย่าง:
application.helpfile: = 'ชื่อไฟล์ช่วยเหลือออนไลน์';
Application.helpJump ('ธีมของไฟล์ช่วยเหลือออนไลน์')
----- ผ่านการรวมกันของคำสั่งนี้เราสามารถทำให้ระบบปรากฏขึ้นไฟล์ช่วยเหลือออนไลน์ที่แสดงหัวข้อที่แน่นอน
---- 8 สร้าง Windows แบบไดนามิกเมื่อโปรแกรมกำลังทำงานอยู่
---- โดยปกติแล้ว Windows จะถูกเพิ่มเข้ามาในโครงการในระหว่างการออกแบบ แต่บางครั้งเราก็ต้องเพิ่ม Windows แบบไดนามิกเมื่อโปรแกรมกำลังทำงานอยู่
form3: tform3; // ประกาศคลาสหน้าต่าง
application.createform (tform3, form3); // สร้างหน้าต่าง
---- 9 จบโปรแกรม
---- แม้ว่าเราสามารถปิดโปรแกรมได้โดยการปิดหน้าต่างหลัก แต่วิธีที่ดีกว่าคือการใช้กระบวนการยุติการใช้งาน มันสามารถบรรลุการปิดโปรแกรมอย่างละเอียดมากขึ้น
---- คุณลักษณะ 10destroy
---- แม้ว่า Delphi จะให้คุณสมบัตินี้ แต่ก็ไม่แนะนำให้ใช้ คล้ายกัน ไม่เพียง แต่สามารถปิดอินสแตนซ์ของโปรแกรมเท่านั้น แต่ยังปล่อยทรัพยากรที่ครอบครองโดยโปรแกรมเพื่อให้บรรลุวัตถุประสงค์ในการล้างโปรแกรมออกจากระบบอย่างสมบูรณ์