|
在Delphi中編寫控件的基本方法 作為Delphi程序員，要想進(jìn)一步提高編程水平就必須掌握控件的編寫方法，本篇文章將通過(guò)一個(gè)簡(jiǎn)單的例子來(lái)為初學(xué)者介紹編寫控件的一些基本方法和模式。 這個(gè)例子控件叫TLeiLabel，是在TLabel的基礎(chǔ)上增加兩個(gè)實(shí)用的功能：一是使文字具有立體形狀，二是使文字具有超鏈接屬性。下面就讓我們一步步來(lái)實(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)和移出）的過(guò)程： 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; //將文字的顏色保存起來(lái) Font.Color := FHoverColor; //改變文字顏色 End; end; Procedure TLeiLabel.CMMouseLeave (Var Message: TMessage); begin Font.Color:=FFontColor; //恢復(fù)文字原來(lái)的顏色 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來(lái)創(chuàng)建一個(gè)24×24的Bitmap位圖，保存為一個(gè)DCR文件，文件名必須與控件的Pas文件名相同，位圖名必須與控件名相同且全部大寫。 |
|
|
