delphi - FileListBox OnComplete 事件

Question

我需要遍历 FileListBox 中的文件并找到最长的文件名来设置一些列宽。

我目前正在使用

shFiles.Directory:=shFolders.Directory;
aWid:=0;
for i:=0 to shFiles.Items.Count-1 do
  if Length(shFiles.Items[i]) > aWid then
    aWid:=Length(shFiles.Items[i]);

这可以满足我的需要，但是当文件数量很大并且 aWid 进程在整个 FileListBox 已满之前开始时，我会遇到问题。

我需要一个“OnComplete”事件或告诉我 FileListBox 已完成将所有文件加载到 ListBox 中的事件，以便我可以运行 aWid for-next。

我该怎么做呢？谢谢你。

Answer 1

您要查找的事件是在调用OnChange中填写列表后ReadFileNames调用的Change。（单位文件Ctrl）