delphi - 在结构面板中选择组件时如何设置visible=true？

Question

当我在结构面板中选择组件时，我想更改组件的可见属性。例如，我知道当我在结构面板中选择一个组件时，我的组件的父级将收到 2 个新对象（可能是为了绘制选择），TGrabHandle.TGrabHandleEllipse并且TDesignRectangle

DoAddObject所以我可以通过覆盖我的控件父级的过程来检测我在结构面板中选择了一个组件，如下所示：

procedure TMyControl.DoAddObject(const AObject: TFmxObject);
begin
  if (csDesigning in ComponentState) and
     (AObject.ClassNameIs('TGrabHandle.TGrabHandleEllipse')) or
     (AObject.ClassNameIs('TDesignRectangle')) then begin
     ....
  end
end;

但是这一切似乎有点复杂，我想知道是否有更好的方法来知道（在设计时）何时在结构面板中选择了一个组件？