如何实现自定义VCL TLabel检测绑定控件移动并同步位置？

要实现标签跟随目标控件移动，核心是捕获目标控件的位置变化消息。由于VCL控件移动时会发送WM_WINDOWPOSCHANGED消息，我们可以通过子类化目标控件的窗口过程来监听这个消息，进而触发标签的位置更新。以下是完整实现代码：

type
  TggLabel = class(TLabel)
  private
    FggControl: TWinControl;
    FOldWndProc: TWndMethod;
    FOffsetX: Integer;  // 标签相对目标控件的X偏移
    FOffsetY: Integer;  // 标签相对目标控件的Y偏移
    procedure SetggControl(const Value: TWinControl);
    procedure UpdateLabelPosition;
    procedure ggControlWndProc(var Message: TMessage);
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property ggControl: TWinControl read FggControl write SetggControl;
    property OffsetX: Integer read FOffsetX write FOffsetX default -5;
    property OffsetY: Integer read FOffsetY write FOffsetY default 20;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('gg', [TggLabel]);
end;

{ TggLabel }

constructor TggLabel.Create(AOwner: TComponent);
begin
  inherited;
  // 默认偏移：标签在控件上方居中偏左一点，可根据需求调整
  FOffsetX := -5;
  FOffsetY := 20;
end;

procedure TggLabel.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited;
  // 目标控件被销毁时自动解绑
  if (Operation = opRemove) and (AComponent = FggControl) then
    SetggControl(nil);
end;

procedure TggLabel.SetggControl(const Value: TWinControl);
begin
  if FggControl <> Value then
  begin
    // 解绑旧控件，恢复原窗口过程
    if Assigned(FggControl) and Assigned(FOldWndProc) then
    begin
      FggControl.WindowProc := FOldWndProc;
      FOldWndProc := nil;
    end;

    FggControl := Value;

    // 绑定新控件，子类化窗口过程
    if Assigned(FggControl) then
    begin
      FOldWndProc := FggControl.WindowProc;
      FggControl.WindowProc := ggControlWndProc;
      // 初始化标签位置
      UpdateLabelPosition;
    end;
  end;
end;

procedure TggLabel.ggControlWndProc(var Message: TMessage);
begin
  // 先调用原窗口过程，保证控件正常功能
  FOldWndProc(Message);

  // 捕获位置变化消息
  if Message.Msg = WM_WINDOWPOSCHANGED then
  begin
    UpdateLabelPosition;
  end;
end;

procedure TggLabel.UpdateLabelPosition;
begin
  if not Assigned(FggControl) then Exit;

  // 根据偏移量计算标签新位置
  // 这里示例：标签左上角相对于目标控件左上角的偏移，可自行修改定位逻辑（比如居中、右对齐等）
  SetBounds(
    FggControl.Left + FOffsetX,
    FggControl.Top - FOffsetY,
    Width,
    Height
  );
end;

关键说明： #

• 子类化窗口过程：通过替换目标控件的WindowProc，拦截它的所有窗口消息，重点监听WM_WINDOWPOSCHANGED（控件位置、大小变化时都会触发）。
• 设计时生效：子类化逻辑在设计模式下同样有效，IDE中控件移动时，标签会自动跟随。
• 自动解绑：重写Notification方法，当目标控件被销毁时自动解除绑定，避免野指针问题。
• 可配置偏移：添加OffsetX和OffsetY属性，方便在设计时调整标签相对目标控件的位置。
• 定位逻辑自定义：UpdateLabelPosition方法中的定位规则可以根据需求修改，比如让标签在控件左侧居中、右侧对齐等。

使用方法： #

1. 将代码编译成组件包并安装到Delphi 12中。
2. 在窗体上放置一个TDBEdit和TggLabel。
3. 在Object Inspector中设置TggLabel的ggControl属性为目标TDBEdit，调整OffsetX和OffsetY到合适值。
4. 运行时或设计时移动TDBEdit，标签会自动跟随移动。

内容的提问来源于stack exchange，提问作者GuidoG