创建时约束组件父级

Question

我希望能够限制创建组件的位置。

例如，TMyChild 可以是 TButton，而 TMyParent 可以是 TPanel， 当我将 MyChild 放到其他组件上时，我希望 MyChild 检查是否 它是否在 TMyParent/TPanel 中创建。

如果是，那么就可以了，如果它不是在 TMyParent/TPanel 中创建的，则取消 创建 TMyChild 并显示类似以下内容的消息：“抱歉，需要在 MyParent 中创建 MyChild！”。

谢谢！

Answer 1

您必须覆盖Controls.TControl.SetParent 方法。

  TMyChild = class(TControl)
  protected
    procedure SetParent(AParent: TWinControl); override;
  end;


procedure TMyChild.SetParent(AParent: TWinControl);
begin
  if (AParent <> nil) then
  begin
    if not (AParent is TMyParent) then
      raise Exception.CreateFmt('Sorry, MyChild needs to be created in MyParent!', [ClassName]);
  end;
  inherited;
end;