在Delphi中編寫控件的基本方法

2019-11-18 18:46:19

字體：大中小

供稿：網(wǎng)友

在Delphi中編寫控件的基本方法

　　作為Delphi程序員，要想進(jìn)一步提高編程水平就必須掌握控件的編寫方法，本篇文章將通過一個(gè)簡(jiǎn)單的例子來為初學(xué)者介紹編寫控件的一些基本方法和模式。

　　這個(gè)例子控件叫TLeiLabel，是在TLabel的基礎(chǔ)上增加兩個(gè)實(shí)用的功能：一是使文字具有立體形狀，二是使文字具有超鏈接屬性。下面就讓我們一步步來實(shí)現(xiàn)這些功能。

　　一、使文字具有立體形狀
　　首先定義類型T3DEffect和屬性Style3D分別如下：

　　T3DEffect=(Normal，Raised，Lowered， Shadowed)；

　　PRoperty Style3D:T3DEffect read FStyle3D write SetStyle3D default Normal;

　　再在private中定義變量：“FStyle3D:T3DEffect;”，并設(shè)置SetStyle3D()方法如下，這也是寫方法的一般格式：

　　procedure TLeiLabel.SetStyle3D(Value: T3DEffect);

　　 begin

　　 if FStyle3D ＜＞ value then

　　 begin

　　 FStyle3D := value;

　　 invalidate; //表示控件將重畫

　　 end;

　　 end;

　　另外對(duì)于帶陰影的文字還要定義陰影的偏移量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()根據(jù)四種類型（正常、凸起、凹進(jìn)和陰影）分別畫出不同的文字。

二、使文字具有超鏈接屬性
　　定義一個(gè)屬性URL表示要鏈接的網(wǎng)址或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;

　　當(dāng)點(diǎn)擊此Label時(shí)要打開瀏覽器或收發(fā)郵件工具，這便要重載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;

　　一般的超鏈接當(dāng)鼠標(biāo)移入時(shí)文字的顏色發(fā)生變化。為此加上屬性HoverColor，表示鼠標(biāo)移入時(shí)文字的顏色。

　　Property HoverColor : TColor Read FHoverColor Write SetHoverColor default clRed;

　　還要定義兩個(gè)接收Windows消息CM_MOUSEENTER和CM_MOUSELEAVE（鼠標(biāo)移進(jìn)和移出）的過程：

　　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;

　　//恢復(fù)文字原來的顏色

　　 end;

　　為設(shè)置屬性的默認(rèn)值，我們還需要重載構(gòu)造Create()，注意，重載構(gòu)造時(shí)必須首先調(diào)用祖先類的構(gòu)造。重載構(gòu)造Create()的程序如下：

　　 constructor TLeiLabel.Create(AOwner: TComponent);

　　 begin

　　 inherited Create(AOwner);

　　//必須首先調(diào)用祖先類的構(gòu)造

　　 FStyle3D := Normal;

　　 FXOffSet := 5;

　　 FYOffSet := -5;

　　 FHoverColor := clRed;

　　 end;

　　最后，還必須為這個(gè)控件加上圖標(biāo)。我們可以用Delphi中的Image Editor來創(chuàng)建一個(gè)24×24的Bitmap位圖，保存為一個(gè)DCR文件，文件名必須與控件的Pas文件名相同，位圖名必須與控件名相同且全部大寫。

上一篇：Delphi數(shù)據(jù)壓縮處理(1)

下一篇：一名Delphi程序員的開發(fā)習(xí)慣（非技術(shù)問題）

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注