关于delphi动态创建panel组件，提高创建效率问题

procedure TForm1.btn1Click(Sender: TObject);
var
i:integer;
begin
Self.AutoScroll:=True;
for i := 0 to 100 do
begin
with TPanel.create(self) do
begin
parent:=Self;
height:=30;
width:=200;
top:=(i+1)*30;
left:=28;
Caption:='第'+IntToStr(i+1)+'块Panel';
end;
end;
end;

写了一个简单的测试程序（XE2），没有发现楼主所说的闪烁问题。如果闪烁很厉害，我个人感觉跟创建组件与同时进行数据集操作有关系。考虑从两个方面进行测试优化：1.把数据集操作去掉，只用类似我上面这段代码进行创建，如果不闪烁，就把数据集操作提出来单独进行。2.如果仍然闪烁情况就比较复杂了，可以试试窗体的DoubleBuffer设置为true，逐步减小创建数量等方法进行优化。