delphi - 如何让我的自定义控件在设计时完全可点击？

Question

我创建了一个源自 TScrollingWinControl 的自定义控件从它的构造函数中，我创建了另一个从 TGraphicControl 派生的自定义类的新实例。 .

除了在设计时，这些控件工作得很好。如果我使用鼠标单击控件的滚动框部分，则 Delphi 设计器会显示控件的 handle ，然后可以从那里移动和调整大小等。但是，如果我单击我的 TGraphicControl 所在的控件是然后父控件(TScrollingWinControl)不显示抓取 handle 并且不能移动或调整大小。

所以我的问题是，如何通过单击 TGraphicControl 告诉我的自定义控件？在我的 parent 内部，应该允许在设计时移动和调整大小吗？

我尝试查看 ControlStyle 标志，例如 csDesignInteractive并在设计时重建包和测试，但似乎没有什么区别。

我也尝试设置我的TGraphicControl至Enabled := False并在设计时再次重建包和测试，但这里的区别在于 TGraphicControl现在可以像任何标准控件一样在设计时选择，只是它现在有自己的 Handlebars 而不是父控件(TScrollingWinControl)。

当点击 TGraphicControl 时，我需要做什么？父控件 ( TScrollingWinControl ) 显示抓取 handle 并且可以移动和调整大小？

Answer 1

就在我问这个问题时，我意识到了答案。

从我创建 TGraphicControl 的构造函数中我正在通过 nil为业主。我现在已将其更改为 Self并且控件现在行为正确，因为在设计时选择我的控件的任何部分都会显示父 TScrollingWinControl 的抓取句柄.