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;

しかし、これはすべて少し複雑に思えます。構造パネルでコンポーネントが選択されていることを (設計時に) 知るためのより良い方法があるかどうかを知りたいですか?