在设计时更新具有相同父级的控件

Chr*_*isB 5 delphi delphi-10-seattle

所以我创建了一个带有标签和编辑的新控件(就像标准的TLabelEdit一样).

控件继承自TCustomEdit.

标签通过覆盖SetParent方法获得相同的父级.

当我现在在设计时移动控件时,它只会移动控件的"编辑部分",并将标签保留在原始位置,就像我制作的视频一样:

http://gfycat.com/QuarrelsomeWildHammerkop

移动控件时,标签"Birthday"保持在同一位置.

有没有办法在拖动/移动控件时更新desinger中的两个位置?

我使用Spy ++记录了窗口消息,但它在移动时不会触发任何消息.

即使添加计时器并尝试调整标签大小20ms也无法正常工作......