ในฐานะภาษาโปรแกรม Windows ใหม่ Delphi ได้รับความนิยมจากโปรแกรมเมอร์และผู้ที่ชื่นชอบมากขึ้นเรื่อยๆ เนื่องจากมีคุณสมบัติที่ยอดเยี่ยมมากมาย เคล็ดลับสิบประการต่อไปนี้ครอบคลุมหัวข้อต่างๆ มากมาย และฉันหวังว่าคำแนะนำเหล่านี้จะเป็นประโยชน์ต่อผู้ที่ชื่นชอบ Delphi
1. แอปที่คล้ายกับ vb doevents ทำงานใน
คุณอาจพบว่าไม่มีสิ่งใดเทียบเท่ากับ vb ใน Delphi doevents ทำงาน ดังนั้นบางครั้งเราไม่สามารถทำให้ Windows ตอบสนองต่อหลายเหตุการณ์พร้อมกันได้ ในความเป็นจริง แอปพลิเคชันของ Delphi มีวิธีการที่คล้ายกัน: PROcessMessage คุณสามารถเรียกแอปพลิเคชันได้ ProcessMessage ให้เสร็จสมบูรณ์เช่น vb. ฟังก์ชั่นเดียวกับ doevents ใน.
2. โทรหา NetscapeNavigator ใน Delphi
ด้วยความนิยมของอินเทอร์เน็ต คุณเคยคิดที่จะเปิดเบราว์เซอร์ Netscape ในโปรแกรม Delphi และแสดงหน้าแรกของที่อยู่ WWW ที่คุณระบุหรือไม่ โปรแกรมต่อไปนี้สามารถบรรลุฟังก์ชันนี้ได้
โปรแกรมNetscape;
ใช้ DDEMan;
ขั้นตอน Go??toURL(sURL: string);
var
dde:TDDEClientConv;
เริ่ม
dde:=TDDEClientConv. สร้าง(ไม่มี);
ถอนออก
เริ่ม
//ระบุตำแหน่งของเน็ตสเคป อดีต
ServiceApplication：=′c： s32program etscape เอ็กซ์';
//เปิดใช้งาน NetscapeNavigator
SetLink('Netscape', 'WWW-เปิดใช้งาน');
ขอข้อมูล('0xFFFFFFFF');
//gotothespecifiedURL
SetLink('Netscape', 'WWW-OpenURL');
ขอข้อมูล(sURL+′,,0xFFFFFFFF,0x3,,,′);
ปิดลิงค์;
จบ;
ดีดี ฟรี;
จบ;
เริ่ม
ไปที่URL(′http://www.yahoo.com/′);
จบ.
3. เอาต์พุตจำนวนเต็มที่จัดรูปแบบแล้ว
ตัวเลขที่ค่อนข้างมากจะอ่านได้ยากเมื่อส่งออก การแสดงตัวเลขที่มีเครื่องหมายส่วนใน Delphi ค่อนข้างง่าย ดังนี้: xxxxx คำบรรยายภาพ: ΚFormatFloat(′#′, 524667500)
4. รับคำแนะนำในเวลารวบรวม
ใน Delphi2.0 เมื่อคอมไพล์ คุณสามารถขอให้คอมไพเลอร์บอกคำแนะนำบางอย่าง เช่น ตัวแปรใดบ้างที่ถูกประกาศแต่ไม่เคยใช้ เรารู้ว่าคุณสามารถควบคุมได้ว่าต้องการให้ Delphi ดำเนินการนี้ผ่านตัวเลือกในเมนูหรือไม่ แต่จะเกิดอะไรขึ้นหากเนื่องมาจากความต้องการพิเศษบางประการ คุณเพียงต้องการให้ Delphi แจ้งเตือนคุณในส่วนโค้ดที่ระบุ โปรดดูขั้นตอนต่อไปนี้
{$ฮินตัน}
ขั้นตอนTform1. Button1Click(ผู้ส่ง: TObject);
var
X: จำนวนเต็ม;
เริ่ม
จบ;
{$คำแนะนำ}
5. เปลี่ยนวอลเปเปอร์ Windows95
คุณสามารถเปลี่ยนวอลเปเปอร์ได้อย่างง่ายดายใน Delphi โปรดดูขั้นตอนต่อไปนี้
ขั้นตอน ChangeIt;
var
Reg:TregIniFile;
เริ่ม
Reg：ΚTRegIniFile. สร้าง ('แผงควบคุม')
-
เร็ก WriteString('เดสก์ท็อป', 'วอลเปเปอร์',
'c: pwin95forest. บีเอ็มพี');
เร็ก WriteString('desktop', 'TileWallpaper
′,′1′);
เร็ก ฟรี;
ข้อมูลพารามิเตอร์ของระบบ (SPI-SETDESKWALLPAPER, 0
, ไม่มี, SPIF-SENDWININICHANGE);
จบ;
6. รับวันที่ที่ไฟล์ถูกใช้ครั้งล่าสุด
มีฟังก์ชั่นใหม่ใน Win95 คือรับวันที่เข้าถึงไฟล์ล่าสุด ซอฟต์แวร์ CleanSweapforWin95 ที่มีชื่อเสียงอาศัยฟังก์ชันนี้เป็นหนึ่งในพื้นฐานในการตัดสินว่ามีการเข้าถึงไฟล์บ่อยครั้งหรือไม่ ใน Delphi เราสามารถบรรลุฟังก์ชันนี้ผ่านโปรแกรมต่อไปนี้
functionGetFileLastaccessTime (sFileName: สตริง): TDate ?? เวลา;
var
ffd:TWin32FindData;
dft:DWord;
lf: TFileTime;
ชั่วโมง: THandle;
เริ่ม
//getfileinformation
h：วินโดวส์. FindFirstFile(PChar(sFileName), ffd);
ถ้า (ไม่ถูกต้อง ― จัดการ ― ค่า ΙΛh ) แล้ว
เริ่ม
// เรากำลังมองหาไฟล์เพียงไฟล์เดียว socloSE "ค้นหา" ของเรา
หน้าต่าง ค้นหาปิด(h);
//แปลง FILETIMEtlocalFILETIME
FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft);
//แปลง FILETIMEtoDOStime
FileTimeToDosDateTime(lft,LongRec(dft).สวัสดี LongRec(dft).Lo);
//สุดท้าย แปลง DOStimetoTDateTimeforuseinDelphi'snativedate/timefunctions
ผลลัพธ์: ΚFileDateToDateTime(dft);
จบ;
จบ;
GetFileLastAccessTime() จะส่งคืนวันที่เข้าถึงล่าสุดของไฟล์ที่คุณระบุในรูปแบบ TdateTime ของ Delphi
7. ฉลากสีสันสดใส
เราไม่พอใจกับป้ายกำกับง่ายๆ ที่ Delphi ให้มาอีกต่อไป เราขอแบบอักษรและสีที่แตกต่างกันในป้ายกำกับเพื่อเพิ่มขีดความสามารถด้านประสิทธิภาพของเราได้ไหม คำตอบคือใช่ และไม่จำเป็นต้องมีการควบคุมจากบุคคลที่สาม เราเพียงแค่ต้องใช้ TRichEdit ที่ Delphi จัดเตรียมไว้ให้อย่างชาญฉลาด ขั้นแรกให้ลบเส้นขอบของตัวควบคุม TRichEdit: RichEd??it1 BorderStyle: ΚbsNone; ยังตั้งค่าแอตทริบิวต์แบบอ่านอย่างเดียวเป็นจริง: RichEd??it1 อ่านอย่างเดียว: ΚTrue จากนั้น คุณใช้ซอฟต์แวร์เช่นการเขียนเพื่อสร้างข้อความในรูปแบบ RichText ซึ่งสามารถแสดงผ่านคำสั่งต่อไปนี้:
RichEdit1. ข้อความธรรมดา:ΚFalse;
RichEdit1. เส้น. LoadFromFile(′c: est.rtf′);
8. วิธีป้องกันไม่ให้ Win95 แสดงข้อผิดพลาดร้ายแรง
ไม่ว่าคุณจะดีบั๊กโปรแกรมของคุณซ้ำ ๆ อย่างไร หลังจากส่งมอบให้กับผู้ใช้แล้ว ข้อผิดพลาดที่ไม่คาดคิดอาจเกิดขึ้นได้ จะป้องกันไม่ให้ Win95 แสดงหน้าต่างสีขาวและบอกผู้ใช้ของคุณว่ามีข้อผิดพลาดที่น่าอับอายเกิดขึ้นได้อย่างไร เราสามารถทำได้:
var
เกิดข้อผิดพลาดหรือไม่โหมด: Word;
เริ่ม
//tellwin??dowstoignorecriticalerrorsandsavecur??renterrormode
wOldError??Mode: SetEr??rorMode (SEM-FAILCRITI??CALERRORS);
พยายาม
//รหัสที่อาจสร้างข้อผิดพลาดที่สำคัญไปที่นี่ - -
ในที่สุด
//gobacktopreviouserrormode
SetErrorMode(wOldErrorMode);
จบ;
จบ;
ส่วนใหญ่ใช้ SetErrorMode() เพื่อทำหน้าที่นี้ให้สมบูรณ์
9. วัตถุใดที่เพิ่งคลิกด้วยเมาส์
ใน Win95 ปุ่มขวาของเมาส์มีบทบาทสำคัญ อย่างไรก็ตาม เนื่องจากเหตุผลทางประวัติศาสตร์ การใช้ปุ่มขวาจึงไม่มีประสิทธิภาพเพียงพอแม้แต่ใน Delphi ก็ตาม เพียงแค่คลิกขวา ขั้นแรกให้สร้างเมนูป๊อปอัป จากนั้นโค้ดต่อไปนี้จะบอกชื่อของวัตถุที่คุณเพิ่งคลิกขวา: ป๊อปอัป??เมนู1. ป๊อปอัปคอมโพเนนต์ ชื่อคลาส
10. ตรวจสอบว่าซีดีรอมหรือดิสก์อื่นๆ มีการเปลี่ยนแปลงหรือไม่
วิธีที่ง่ายที่สุดในการตรวจสอบว่าซีดีรอมหรือดิสก์มีการเปลี่ยนแปลงหรือไม่คือการตรวจสอบหมายเลขโวลุ่ม คุณสามารถใช้ฟังก์ชันต่อไปนี้เพื่อส่งคืนหมายเลขชุดไดรฟ์ข้อมูลของดิสก์ GetDiskVolSerialID ('E') รหัสฟังก์ชันจะเป็นดังนี้:
functionGetDiskVolSerialID (cDriveName: ถ่าน): DWord;
var
dwTemp1, dwTemp2:DWord;
เริ่ม
GetVolumeInformation(PChar(cDriveName+′:′), ไม่มี, 0, Νผลลัพธ์, dwTemp2, dwTemp2, ไม่มี, 0);
จบ;