8 เคล็ดลับสำหรับเดลฟี:
1. จะเรียกไฟล์ exe ภายนอกใน Delphi ได้อย่างไร?
ใช้ WinProcs;
-
เริ่ม
WinExec(......);
-
จบ.
มันไม่ต่างจากการเรียกใช้ฟังก์ชันไลบรารี Pascal
2. วิธีเปลี่ยนแบบอักษรและสีของคำใบ้ Delphi
คุณสมบัติของ TApplication ใน Delphi ได้แก่ HintColor และ HintPause
คุณสามารถเปลี่ยนสีของ Hint ในแอปพลิเคชันได้โดยการตั้งค่า HintColor และโดยการตั้งค่า HintPause
เปลี่ยนเวลาที่ Hint ถูกทริกเกอร์
แต่น่าเสียดาย: ไม่สามารถเปลี่ยนแบบอักษรของ Hint ใน Delphi ได้
3. วิธีคำนวณวันที่ใน Delphi
การคำนวณเวลาเป็นวิธีที่ง่ายที่สุดใน Delphi ดังนี้:
var ss : TDateTime
อันที่จริง Tdatetime เป็นตัวเลขทศนิยมที่มีความแม่นยำสองเท่า และจุดทศนิยมแสดงถึงจำนวนวัน:
ตัวอย่างเช่น ss := ss + 20 หมายถึง 20 วันนับจาก ss ถ้า ss = 234.567
หมายความว่า 234.567 วัน เริ่มตั้งแต่ AD 0 แน่นอน!
4. จะตั้งโปรแกรมสกรีนเซฟเวอร์โดยใช้ Delphi ได้อย่างไร (null)
โปรแกรมรักษาหน้าจอไม่มีอะไรมากไปกว่าโปรแกรมปฏิบัติการที่เปลี่ยนนามสกุลเป็น .SCR โดยยอมรับพารามิเตอร์บรรทัดคำสั่งสองตัว:
-s รันพารามิเตอร์คำสั่ง
-c กำหนดค่าพารามิเตอร์คำสั่ง
Windows สตาร์ทโปรแกรมโดยส่งพารามิเตอร์บรรทัดคำสั่ง -s ไปยังโปรแกรม
ควรสังเกตว่า: หน้าต่างโปรแกรมไม่มีเส้นขอบและไม่มีชื่อเรื่อง ขนาดของหน้าต่างควรเท่ากับขนาดหน้าจอ
การจัดการเหตุการณ์หน้าต่าง
5. วิธีเปลี่ยนชื่อไดเร็กทอรีใน Delphi
เรียกใช้ฟังก์ชัน RenameFile เช่น:
RenameFile('c:/wang/temp', 'c:/wang/tmp');
6. DELPHI แสดงไฟล์ภาพ JPEG
เพียงเพิ่ม JPEG เพื่อใช้
มีคลาส TJPEGImage ในหน่วย JPEG ซึ่งสามารถกำหนดตัวแปรเช่น Jpeg และเรียกมันด้วย LoadFromFile
นำเข้าไฟล์ JPEG จากนั้นใช้ Canvas.Draw(x,y,Jpeg) ของฟอร์มเพื่อแสดง
7. การประมวลผลไฟล์ฟอร์แมต Jpeg ใน Delphi...
(1) เพิ่มหน่วย JPEG ในการใช้งาน
(2) กำหนดตัวแปรส่วนกลาง เช่น var AJPEG: TJPEGImage;
(3) เพิ่ม: ในเหตุการณ์ OnCreate ของแบบฟอร์ม:
ผ้าใบปากกาสี:=clBlack;
ผ้าใบปากกาสไตล์:=psSolid;
ผ้าใบ แปรง สี:=clBtnFace;
Canvas.Brush.Style:=bsSolid; //นี่คือการตั้งค่าคุณสมบัติบางอย่างของ Canvas เพื่อความสะดวกในอนาคต
//ล้างแบบฟอร์มและโหลดไฟล์ JPEG ใหม่
AJpeg:=TJpegImage.Create;//สร้าง AJpeg แบบไดนามิก;
AJpeg.LoadFromFile('D:/Temp.jpg') //หลังจากสร้าง AJpeg แล้ว ให้โหลดไฟล์ JPEG;
(4) เพิ่มในเหตุการณ์ OnPain ของแบบฟอร์ม
Canvas.Rectangle(2,2,560,430); //วาดรูปสี่เหลี่ยมสีดำเพื่อล้อมรอบภาพ;
x:=10; ย:=10;
Form1.Canvas.Draw(x,y,AJpeg); //ส่งออกไฟล์ JPEG โดยมี (x,y) เป็นมุมซ้ายบน;
//อันที่จริงแล้ว หน้าที่ของมันคือการกู้คืนกราฟิกเมื่อกราฟิกถูกทำลาย
(5) เพิ่มสิ่งต่อไปนี้ในเหตุการณ์ OnClick ของปุ่ม 'โหลด' หรือ 'เรียกดู':
เริ่ม
ถ้า OpenPictureDialog1.Execute แล้ว
เริ่ม
AJpeg.Free; //ปล่อย AJpeg เก่า;
AJpeg:=TJpegImage.Create; //สร้าง AJpeg ใหม่;
AJpeg.LoadFromFile(OpenPictureDialog1.Filename); //โหลดไฟล์ JPEG;
จบ;
Canvas.Rectangle (2,2,560,430); // ล้างแบบฟอร์ม;
x:=10;
ย:=10;
Form1.Canvas.Draw(x,y,AJpeg); //แสดง AJpeg ใหม่;
จบ;
8. หน้าจอเริ่มต้น DELPHI3