如何防止Tflowpanel中出现闪烁？

Question

我正在使用以下代码向Tflowpanel添加一些Timage控件

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。这将重新绘制组件，然后在屏幕上实际刷新它。