在Delphi中编写控件的基本方法计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:30:15
来源 100Test.Com百考试题网

　　在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()根据四种类型（正常、凸起、凹进和阴影）分别画出不同的文字。