我如何防止在Tflowpanel闪烁？

Question

我在Tflowpanel中添加了一些时间控制，代码如下。

procedure TForm1.AddToFlow(AGpath : string);
var
aGIF:TGIFImage;
aimage : Timage;
begin

aGIF := TGIFImage.Create;
try

aGIF.LoadFromFile(AGpath);

aimage := Timage.Create(FlOWPANEL);
aimage.Parent  := FlOWPANEL;
aimage.Center := True;
aimage.Picture.Graphic := aGIF;

finally
FreeAndNil(aGIF);
end;


end;

但每次我添加TImage时，FlowPanel和里面的Timages开始闪烁，任何想法如何避免闪烁在这种情况下？

Answer 1

如果是闪烁的组件，你可以设置以下属性 DoubleBuffered := True. 这将在屏幕上实际刷新之前重新绘制该组件。