delphi ListBox1.显示问题

来源：百度知道 编辑：UC知道 时间：2024/06/22 11:50:03
怎么实现像安装文件时那样显示的正在拷贝的文件列呀？
呼呼呼的一大片。

我用 ListBox1.Items.Add(filelist[i])
添加了我在进行操作的文件。但它在我所有操作都完成后才能显示

怎么控制才能让它即时显示。？

很简单的，加一个语句就搞掂的了。见下面的语句：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 100 do
begin
ListBox1.Items.Add(inttostr(i));
Application.ProcessMessages;
Sleep(100);
end;
end;

加上“Application.ProcessMessages;”效果就完全不一样了。

最简单的方法，用一个timer，设一个变量a,为filelist[i]，判断如果filelist[i]不为a，则表示新的文件在复制，就添加到ListBox1里面。

ListBox1.Items.Add(filelist[i])
可能这个的位置放错了

多线程?