重新创建关联时保持 UpDown-Associate 连接

Question

我有一个 TUpDown 控件，其 Associate 设置为 TEdit 子类的实例。编辑类在其重写的 DoEnter 方法中调用 RecreateWnd。不幸的是，这会终止 API 级别的好友连接，从而导致奇怪的行为，例如单击向上向下箭头时。

我的问题是，编辑实例不知道它是某个应该重新连接的 updown 的好友，并且 updown 没有收到其好友丢失的通知。有什么想法可以重新连接两者吗？

Answer 1

我注意到 TCustomUpDown.SetAssociate 如何检查 updown 和 buddy 是否具有相同的父级，并使用它来避免重复关联。所以我尝试调用我自己的 RecreateWnd 方法：

procedure TAlignedEdit.RecreateWnd;
var
  i: Integer;
  c: TControl;
  ud: TCustomUpDown;
begin
  ud := nil;
  for i := 0 to Pred(Parent.ControlCount) do
  begin
    c := Parent.Controls[i];
    if c is TCustomUpDown then
      if THACK_CustomUpDown(c).Associate = Self then
      begin
        ud := TCustomUpDown(c);
        Break;
      end;
  end;
  inherited RecreateWnd;
  if Assigned(ud) then
  begin
    THACK_CustomUpDown(ud).Associate := nil;
    THACK_CustomUpDown(ud).Associate := Self;
  end;
end;

等等 - 它有效！

Answer 2

你发现了一些相当不幸的事情。您在应用程序级别的两个控件之间建立了关联，因此您应该能够继续在应用程序级别代码中管理该关联，但 VCL 不提供维护该关联所需的框架。理想情况下，应该有一个通用的关联框架，这样关联的控件就可以互相通知它们应该更新自己。

VCL 以 Notification 方法开始，但它仅通知组件被销毁。

我认为您提出的解决方案对于任务来说有点过于具体。编辑控件不一定知道它附加到上下控件，即使知道，也不应该要求它们共享父级。另一方面，为这个问题编写一个完整的通用观察者框架就有点矫枉过正了。我提出一个妥协方案。

从编辑控件上的新事件属性开始：

property OnRecreateWnd: TNotifyEvent read FOnRecreateWnd write FOnRecreateWnd;

然后像上面那样重写 RecreateWnd，但不是所有特定于上下控件的代码，只需触发事件：

procedure TAlignedEdit.RecreateWnd;
begin
  inherited;
  if Assigned(OnRecreateWnd) then
    OnRecreateWnd(Self);
end;

现在，处理该事件在您的应用程序代码中，您确切地知道哪些控件彼此关联，因此您不必搜索任何内容，也不需要任何父子关系：

procedure TUlrichForm.AlignedEdit1RecreateWnd(Sender: TObject);
begin
  Assert(Sender = AlignedEdit1);
  UpDown1.Associate := nil;
  UpDown1.Associate := AlignedEdit1;
end;

Answer 3

尝试在调用 RecreateWnd 之前将 Associate 属性的值存储在局部变量中，然后再将其设置回来。