ในฐานะโปรแกรมเมอร์ Delphi หากคุณต้องการปรับปรุงระดับการเขียนโปรแกรมของคุณเพิ่มเติม คุณต้องเชี่ยวชาญวิธีเขียนตัวควบคุม บทความนี้จะแนะนำวิธีการพื้นฐานและรูปแบบการควบคุมการเขียนสำหรับผู้เริ่มต้นผ่านตัวอย่างง่ายๆ
ตัวควบคุมตัวอย่างนี้เรียกว่า TLeiLabel และจะเพิ่มฟังก์ชันที่ใช้งานจริงสองฟังก์ชันบนพื้นฐานของ TLabel: ฟังก์ชันแรกทำให้ข้อความมีรูปร่างสามมิติ และอีกฟังก์ชันหนึ่งคือการทำให้ข้อความมีแอตทริบิวต์ไฮเปอร์ลิงก์ ให้เราปรับใช้ฟังก์ชันเหล่านี้ทีละขั้นตอน
1. ทำให้ข้อความมีรูปร่างสามมิติ
ขั้นแรกให้กำหนดประเภท T3DEffect และคุณลักษณะ Style3D ดังนี้:
T3DEffect=(ปกติ, ยกขึ้น, ลดลง, อยู่ในเงา);
คุณสมบัติ Style3D:T3DEffect อ่าน FStyle3D เขียน SetStyle3D ค่าเริ่มต้น ปกติ;
จากนั้นกำหนดตัวแปรในแบบส่วนตัว: "FStyle3D:T3DEffect;" และตั้งค่าเมธอด SetStyle3D() ดังต่อไปนี้
ขั้นตอน TLeiLabel.SetStyle3D (ค่า: T3DEffect);
เริ่ม
ถ้าค่า FStyle3D ＜> ค่านั้น
เริ่ม
FStyle3D := ค่า;
ทำให้ใช้ไม่ได้; //แสดงว่าคอนโทรลจะถูกวาดใหม่
จบ;
จบ;
นอกจากนี้ สำหรับข้อความที่มีเงา ต้องกำหนดออฟเซ็ตของเงา ShadeXOffSet และ ShadeYOffSet:
คุณสมบัติ ShadowXOffSet: จำนวนเต็มอ่าน FXOffSet เขียน SetFXOffSet เริ่มต้น 5;
คุณสมบัติ ShadowYOffSet: จำนวนเต็มอ่าน FYOffSet เขียน SetFYOffSet เริ่มต้น -5;
วิธีการเขียน SetFXOffSet() และ SetFYOffSet() คล้ายกับ SetStyle3D() ข้างต้น
หากต้องการวาดตัวควบคุมใหม่ โดยทั่วไปคุณจะต้องโหลดวิธี Paint มากเกินไป ที่นี่เราเพียงแต่ต้องวาดข้อความใหม่มากเกินไปเท่านั้น
การประกาศของ DoDrawText ถูกวางไว้ใน Protected:
ขั้นตอน DoDrawText (var Rect: TRect; Flags: Longint);
ที่นี่ DoDrawText() วาดข้อความที่แตกต่างกันตามสี่ประเภท (ปกติ, ยกขึ้น, ปิดภาคเรียน และเงา)
2. ทำให้ข้อความมีแอตทริบิวต์ไฮเปอร์ลิงก์
กำหนด URL แอตทริบิวต์เพื่อแสดง URL หรือที่อยู่อีเมลที่จะเชื่อมโยง
URL คุณสมบัติ: สตริงอ่าน FURL เขียน SetURL;
เขียนวิธี SetURL ดังนี้:
ขั้นตอน TLeiLabel.SetURL (ค่า: สตริง);
เริ่ม
ถ้า FURL ＜> ค่าแล้ว FURL := ค่า ;
ถ้า FURL ＜> ' แล้ว
เคอร์เซอร์ := crHandPoint;
จบ;
เมื่อคลิกป้ายกำกับนี้ คุณจะต้องเปิดเบราว์เซอร์หรือเครื่องมือส่งและรับอีเมล ซึ่งต้องใช้วิธีการคลิกมากเกินไป
คลิกขั้นตอน;
ขั้นตอน TLeiLabel.Click;