身為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;