delphi - Stringlist 排序进度条

Question

我有一个 TListBox 加载时可以有一个很长的字符串列表，所以我让操作员通过单击一个按钮来启动一个排序。有时，排序可能需要将近一分钟，操作员会想知道发生了什么。

有什么方法可以使用 TProgressBar 来显示正在发生的事情吗？如果是这样，怎么做？

或者

我可以在开始时将屏幕变灰（视觉上禁用），然后在排序完成后将颜色变回白色吗？如果是这样，怎么做？

谢谢

Answer 1

我相信您的根本问题是您将视觉控件用作容器。对容器内的列表进行排序会产生糟糕的性能。将 60,000 个字符串放入 a 中TStringList，您将能够立即对它们进行排序。

您可以在虚拟模式下操作它，而不是在视觉控件中持有项目。这将是最有效的操作方式。

如果您进行这些更改，那么您将不需要进度条。