โปรดทราบว่าตัวอย่างนี้มีการดีบักใน delphi7.0
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it ////////////////////////////////////////////////////
(i) สร้างโครงการ
รายการใหม่-> โครงการ-> แอปพลิเคชัน MDI
(2) ออกแบบรูปแบบย่อย MDI ใหม่ - เด็กเพื่อตระหนักถึงภาพที่ถูกจับที่ถูกแสดงใน Childwin
ลบการควบคุม memo1 ดั้งเดิมในรูปแบบเด็กเด็กและเพิ่มการควบคุมภาพ, image1.align = alclient
Image1.autosize = ture หมายถึงขนาดดั้งเดิมจะปรากฏขึ้นและ strech = false หมายความว่ามันไม่ได้แสดงตามกล่องวัตถุ
(iii) การปรับเปลี่ยนอินเตอร์เฟสหลัก
1) ลบรายการที่เกี่ยวข้องกับการวางและใหม่ในเมนู, แถบเครื่องมือ, ActionList
2) เพิ่ม PrintersetUpDialog1 และ Savedialog Control ไปยัง MainForm
เพิ่มไฟล์เมนูรายการ/พิมพ์ชื่อแอตทริบิวต์คือ FilePrintItem;
เพิ่มรายการเมนูรายการ/การตั้งค่าการพิมพ์คุณสมบัติ enabled = false ชื่อคือ filePrintSet;
เพิ่มรายการเมนูแก้ไข/วาดคุณสมบัติที่เปิดใช้งาน = false;
เพิ่มรายการเมนูแก้ไข/การตั้งค่าและตั้งค่าเพื่อสร้างเมนูย่อย;
เพิ่มรายการเมนูแก้ไข/การตั้งค่า/การกำหนดค่า;
เพิ่มรายการเมนูแก้ไข/การตั้งค่า/แถบเครื่องมือตรวจสอบ = true, name = toolbaritem;
เพิ่มภาพเมนู
เพิ่มรายการเมนูภาพ/การจับภาพเดสก์ท็อป;
เพิ่มรายการเมนูภาพ/พื้นที่จับภาพ;
เพิ่มรายการเมนูรูปภาพ/การจับภาพหน้าต่างหรือตัวควบคุม;
เพิ่มรายการเมนูภาพ/ไอคอนจับภาพ
เพิ่มปุ่มแถบเครื่องมือสี่ปุ่มลงในแถบเครื่องมือซึ่งสอดคล้องกับรายการเมนูสี่รายการภายใต้เมนูภาพ
เพิ่มการกระทำสี่อย่างใน ActionList: CPTDESTOP, CPTAREA, CPTWINDOWS, CPTICON;
แอตทริบิวต์การกระทำของรายการเมนูทั้งสี่รายการภายใต้เมนูภาพสอดคล้องกับการกระทำสี่ประการข้างต้นตามลำดับ
แอตทริบิวต์การกระทำของปุ่มแถบเครื่องมือที่เพิ่มขึ้นใหม่สี่ปุ่มสอดคล้องกับการกระทำสี่ประการข้างต้นตามลำดับ
3) การใช้งานการใช้งานใช้เด็ก ๆ ในการใช้งานอินเทอร์เฟซในหน่วยหลัก
เพิ่ม SCRNCPT ในการใช้งานของอินเทอร์เฟซ
เพิ่มคำจำกัดความในสาธารณะของ TMainform:
เด็ก: tmdichild;
Capturenum: จำนวนเต็ม;
ชื่อไฟล์: สตริง;
defaultDirectory: String;
4) เพิ่มฟังก์ชั่นส่วนตัวใน tmainform: การล่าช้าขั้นตอน (MSECS: จำนวนเต็ม)
ขั้นตอน tmainform.delay (MSECS: จำนวนเต็ม);
var firsttickcount: Longint;
เริ่ม
FirstTickCount: = GetTickCount;
ทำซ้ำ
เริ่ม
Application.processMessages;
จบ;
จนกระทั่ง ((gettickcount-firsttickcount)> = longint (msecs));
จบ;
5) แก้ไขกระบวนการ [tmainform.createmdichild]:
ลบตัวแปร var child: tmdichild, เพิ่มพารามิเตอร์ newfile
ขั้นตอน tmainform.createMdichild (ชื่อ const: String; newfile: บูลีน);
เริ่ม
เด็ก: = tmdichild.create (แอปพลิเคชัน);
child.caption: = ชื่อ;
ถ้า (ไม่ใช่ newfile) และ (ชื่อ <> '') แล้วเริ่มต้น
child.image1.picture.bitmap.loadFromFile (ชื่อ);
เด็ก.
child.vertscrollbar.Range: = child.image1.picture.height;
จบ;
จบ;