interface

uses
Messages, Classes, Controls, StdCtrls;

type
　TLinkedLabel = class(TLabel)
　private
　// 相连控件.
　FAssociate: TControl;
　// 将 FAssociate 置为全大写模式
　FCapsLock: Boolean;
　// 标签与关联控件之间的距离
　FGap: Integer;
　// 标签在关联控件顶端时为true
　FOnTop: Boolean;
　// 保存 FAssociate.WindowProc的原始值
　FOldWinProc: TWndMethod;
　// 用于防止无限更新循环
　FUpdating: Boolean;
　protected
　procedure Adjust(MoveLabel: Boolean);
　procedure SetGap(Value: Integer);
　procedure SetOnTop(Value: Boolean);
　procedure SetAssociate(Value: TControl);
　procedure NewWinProc(var Message: TMessage);
　procedure Notification(AComponent: TComponent;
　Operation: TOperation); override;
　procedure WndProc(var Message: TMessage); override;
　
public
　constructor Create(AOwner :TComponent); override;
　destructor Destroy; override;
　published
　property Associate: TControl
　read FAssociate write SetAssociate;
　property CapsLock: Boolean
　read FCapsLock write FCapsLock;
　property Gap: Integer read FGap write SetGap default 8;
　property OnTop: Boolean read FOnTop write SetOnTop;
end;

　　现在让我们来仔细看看这个控件中的不同方法，先由构造器（constructor）开始。首先说明一下，当创建一个新对象时，与它相关联的所有内存都被清空。这个动作将会自动把Fassociate和FoldWinProc设置为nil，将FcapsLock、FonTop、Fupdating设置为False。所有这些都不需要在构造器中明确的初始化它们。因此，唯一需要我们在构造器中设置的就是Gap的默认值。
implementation

constructor TLinkedLabel.Create(AOwner: TComponent);
begin
　inherited;
　FGap := 8;
end;
　　现在我们来看一下Adjust方法，它负责安排LinkedLabel或者关联控件的放置（取决于MoveLabel参数的取值）。正如你将在代码中看到的，LinkedLabel与相关控件的实际位置取决于Gap和OnTop属性（见图2）。虽然我们在OnTop中只提供了两种可能的选择，不过可以很容易的对其编程以提供更多的可能性。不过，把TlinkedLabel武装到牙齿（原文是“add a lot of "bells and whistles"”，译者注）并不是本文的重点，这项任务就委托给读者们来完成吧。
procedure TLinkedLabel.Adjust(MoveLabel: Boolean);
var
dx, dy: Integer;
begin
　if (Assigned(FAssociate)) then begin
　if (FOnTop) then
begin
　dx := 0;
　dy := Height + FGap;
end
else
begin
　dx := Width + FGap;
　dy := (Height - FAssociate.Height) div 2;
end;
　if (MoveLabel) then
begin
　Left := FAssociate.Left - dx;
　Top := FAssociate

[1] [2] [3] 下一页