在Delphi中編寫控制項的基本方法
作為Delphi程式設計師，要進一步提高程式水平就必須掌握控制項的編寫方法，本篇文章將透過一個簡單的範例來為初學者介紹編寫控制項的一些基本方法和模式。
這個範例控制叫TLeiLabel，是在TLabel的基礎上增加兩個實用的功能：一是讓文字有立體形狀，二是讓文字有超連結屬性。下面就讓我們一步一步來實現這些功能。
一、使文字具有立體形狀
先定義類型T3DEffect和屬性Style3D分別如下：
T3DEffect=(Normal，Raised，Lowered， Shadowed)；
PRoperty Style3D:T3DEffect read FStyle3D write SetStyle3D default Normal;
再在private中定義變數：“FStyle3D:T3DEffect;”，並設定SetStyle3D()方法如下，這也是寫入方法的一般格式：
procedure TLeiLabel.SetStyle3D(Value: T3DEffect);
begin
if FStyle3D ＜＞ value then
begin
FStyle3D := value;
invalidate; //表示控制項將重畫
end;
end;
另外對於有陰影的文字還要定義陰影的偏移量ShadeXOffSet和ShadeYOffSet：
property ShadowXOffSet: integer read FXOffSet write SetFXOffSet default 5;
property ShadowYOffSet: integer read FYOffSet write SetFYOffSet default -5;
寫入方法SetFXOffSet()、SetFYOffSet()和上面的SetStyle3D()類似。
要重畫控制項一般要重載Paint方法，這裡只是重畫文字，我們只需重載DoDrawText方法。
DoDrawText的聲明放在Protected中：
procedure DoDrawText(var Rect: TRect; Flags: Longint); override;
此處DoDrawText()根據四種類型（正常、凸起、凹進和陰影）分別畫出不同的文字。
二、使文字具有超連結屬性
定義一個屬性URL表示要連結的網址或Email位址。
Property URL : String read FURL write SetURL;
寫入方法SetURL如下：
procedure TLeiLabel.SetURL(Value: String);
Begin
if FURL ＜＞ Value then FURL := Value ;
if FURL ＜＞ ' then
Cursor := crHandPoint;
end;
點擊此Label時要開啟瀏覽器或收發郵件工具，這便要重載Click方法。
Procedure Click; Override;
procedure TLeiLabel.Click;
var s: string;
Begin
Inherited Click;
if FURL = ' then exit;
if LowerCase(Copy(FURL,1,7)) = 'http://' then
s := FURL
else if Pos('@',FURL) ＜＞ 0 Then
s := 'mailto:' + FURL
else
s := 'http://' + FURL;
ShellExecute(application.Handle, 'open', PChar(s), NIL, NIL, SW_SHOWNORMAL);
end;
一般的超連結當滑鼠移入時文字的顏色發生變化。為此加上屬性HoverColor，表示滑鼠移入時文字的顏色。
Property HoverColor : TColor Read FHoverColor Write SetHoverColor default clRed;
也要定義兩個接收Windows訊息CM_MOUSEENTER和CM_MOUSELEAVE（滑鼠移進和移出）的過程：
Procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
Procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
Procedure TLeiLabel.CMMouseEnter (Var Message: TMessage);
begin
If Enabled and Visible and getParentForm(Self).Active then
begin
FFontColor := Font.Color;
//將文字的顏色保存起來
Font.Color := FHoverColor;
//改變文字顏色
End;
end;
Procedure TLeiLabel.CMMouseLeave (Var Message: TMessage);
begin
Font.Color:=FFontColor;
//恢復文字原來的顏色
end;
為設定屬性的預設值，我們還需要重載建構Create()，注意，重載建構時必須先呼叫祖先類別的建構。重載構造Create()的程式如下：
constructor TLeiLabel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
//必須先呼叫祖先類別的建構
FStyle3D := Normal;
FXOffSet := 5;
FYOffSet := -5;
FHoverColor := clRed;
end;
最後，也必須為這個控制項加上圖示。我們可以用Delphi中的Image Editor來建立一個24×24的Bitmap位圖，儲存為一個DCR文件，檔案名稱必須與控制項的Pas檔名相同，點陣圖名稱必須與控制項名稱相同且全部大寫。