拖动ListView滚动条滑块时控件不更新，如何强制其正常更新？

问题原因 #

默认VCL ListView在拖动滚动条滑块过程中，会进入滚动优化状态，暂时抑制非必要的重绘操作，导致定时器新增的项无法即时显示。自定义样式的ListView通常重写了消息处理逻辑，绕过了这个限制。

可行解决方案 #

方案1：强制触发控件重绘

在添加新项后，直接调用控件的重绘方法，强制更新显示：

var
  I: Integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  I := I + 1;
  ListView1.Items.Add.Caption := IntToStr(I);
  // 强制重绘控件
  ListView1.Refresh;
end;

Refresh方法会先标记控件为需要重绘（Invalidate），再立即执行重绘（Update），确保新增项能即时显示。

方案2：使用列表视图API更新项数

通过Windows原生控件API手动更新项数，通知控件同步内容：

uses CommCtrl;

var
  I: Integer;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  NewItem: TListItem;
begin
  I := I + 1;
  NewItem := ListView1.Items.Add;
  NewItem.Caption := IntToStr(I);
  // 通知控件更新项数，避免滚动时的显示抑制
  ListView_SetItemCountEx(ListView1.Handle, ListView1.Items.Count, LVSICF_NOSCROLL or LVSICF_NOINVALIDATEALL);
  ListView1.Invalidate;
end;

ListView_SetItemCountEx会直接向原生控件传递项数变化的消息，配合Invalidate确保内容刷新。

方案3：包裹更新操作（适合批量添加场景）

如果后续需要批量添加项，用BeginUpdate和EndUpdate包裹操作，既避免闪烁也能确保更新生效：

var
  I: Integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ListView1.BeginUpdate;
  try
    I := I + 1;
    ListView1.Items.Add.Caption := IntToStr(I);
  finally
    ListView1.EndUpdate;
  end;
end;

BeginUpdate会暂停控件重绘，EndUpdate恢复并触发一次完整重绘，确保新增项在滚动时也能正常显示。

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