编辑Delphi表单时如何拦截控件移动

fpi*_*tte 9 delphi vcl

我正在开发一个可视化组件(VCL),一个专门的TPanel.当用户在编辑表单时移动放在我的特殊面板上的控件时,我需要拦截.我需要拦截移动以调整放在同一特殊面板上的其他控件的视觉属性.

我的问题是:当用户在IDE中编辑表单时,如何拦截/检测/响应TCustomPanel派生组件上的控件移动?

kob*_*bik 6

您可以覆盖AlignControls容器TPanel.的方法,AControl参数将告诉您哪个子控件已移动或插入容器并作出相应的反应.然后,您可以根据需要调整其他子控件的位置.