怎么总是在闪？

Question

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i,j,iWidth,iHeight:integer;
  str:string;
begin
  str:='有多少爱可以重来，有多少人可以等待';
  image1.Canvas.Font.Size := 24;
  image1.Canvas.Brush.Style := bsClear;
  image1.Canvas.Font.Color :=clblack;
  image1.Canvas.TextOut(0,0,str);
  iWidth:=image1.Canvas.TextWidth(str);
  iHeight:=image1.Canvas.TextHeight(str);  for i:=0 to iWidth-1 do
  begin
    sleep(100);
    for j:= 0 to iHeight-1 do
      if image1.Canvas.Pixels[i,j]=clblack then
          image1.Canvas.Pixels[i,j]:=clred;
    application.ProcessMessages;
  end;
end;一个卡拉OK的字幕效果，但有个BUG就是文字在不停的闪烁，有没有办法让字幕不闪烁？

Answer 1

你可以试一下
      if image1.Canvas.Pixels[i,j]=clblack then
          image1.Canvas.Pixels[i,j]:=clred;
      image1.Update;// 在这里加上这一句