在Delphi中編寫控制元件的基本方法(1) (轉)

在Delphi中編寫控制元件的基本方法(1) (轉)[@more@]在中編寫的基本方法(1)

[ 作者: 雷小園   新增時間: 2001-5-5 18:01:08 ]


來源：

　　作為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); overr;

　　此處DoDrawText()根據四種型別（正常、凸起、凹進和陰影）分別畫出不同的文字。

二、使文字具有超連結屬性
　　定義一個屬性URL表示要連結的網址或E地址。

　　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;