运行时控件对齐/吸附异常：Access Violation及抖动问题修复求助

核心问题拆解 #

• Access Violation异常：直接访问未初始化的FarNeighbourX/Y对象，未做空值校验
• 控件抖动：吸附逻辑触发过于频繁，导致控件位置被反复修正

针对性修复步骤 #

1. 空对象访问防护 #

在所有操作FarNeighbourX或FarNeighbourY的代码前，强制添加空值判断，示例：

if Assigned(FarNeighbourX) then
begin
  // 原FarNeighbourX相关操作逻辑
end;

同理处理FarNeighbourY，从根源避免空指针访问导致的AV异常。

2. 消除吸附抖动 #

• 优化触发时机：仅在鼠标拖动结束、或控件位置变化达到设定阈值时执行吸附逻辑，而非拖动过程中每帧触发
• 完善重定位锁机制：保留inReposition标记，但通过try...finally确保标记闭环：

  procedure TForm1.PanelMove(Sender: TObject);
  var
    OldPos: TPoint;
  begin
    if inReposition then Exit;
    OldPos := TPanel(Sender).Position;
    try
      inReposition := True;
      // 执行吸附对齐逻辑
    finally
      inReposition := False; // 确保异常场景下标记也能重置
    end;
    if OldPos <> TPanel(Sender).Position then
      TPanel(Sender).Refresh;
  end;
  

  避免因逻辑异常导致inReposition一直处于True，阻塞后续拖动操作。

3. 优化NearNeighbour逻辑 #

• 遍历邻接控件时，提前过滤已销毁、或不属于当前容器的控件，避免引用无效对象
• 增加“吸附死区”（如2-3像素），仅当控件进入死区范围才触发吸附，减少不必要的位置修正

临时方案的补充说明 #

你当前用inReposition:=false的临时方案能抑制抖动，但缺少try...finally保护的话，一旦吸附逻辑抛出异常，标记会一直为True，导致后续拖动完全失效。建议补全try...finally逻辑，同时配合空值校验和触发时机优化，这才是更健壮的解决方案。

内容的提问来源于stack exchange，提问作者user1937012