系统忙时 控件的刷新问题 ！ 急 ！在线等！

Question

在插入数据库的时候由于是批量导入。
由于消耗资源较多。
进度条无法显示，呈空白状态（控件无法画出）。
当导入完才显示。求和数据库批量导入相关的进度条实时显示的解决方法

Answer 1

在 ProgressBar1.Position:=ProgressBar1.Position+1
前面加Application.ProcessMessages;begin
  ...
  Application.ProcessMessages;
  ProgressBar1.Position:=ProgressBar1.Position+1;
  ...
end;

Answer 2

还有怎么让 listBox 总高亮最后一条记录啊

Answer 3

listBox.itemindex=listBox.items.count-1;

Answer 4

我试了下
还可以用
count:=ListBox1.items.count;
ListBox1.Selected[count-1];