初级问题

Question

下面语句为什么不能显示aaa.bmp,bbb.bmp,
而是在十秒种以后只显示ccc.bmp
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('aaa.bmp');
  sleep(5000);
  Image1.Picture.LoadFromFile('bbb.bmp');
  sleep(5000);
  Image1.Picture.LoadFromFile('ccc.bmp');
end;

Answer 1

估计是由于图片还没有调入，就执行到了Sleep
改为下面的试试看：procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('aaa.bmp');
  Application.ProcessMessages;
  sleep(5000);
  Image1.Picture.LoadFromFile('bbb.bmp');
  Application.ProcessMessages;
  sleep(5000);
  Image1.Picture.LoadFromFile('ccc.bmp');
end;