Question

关于delphi动态创建panel组件时提高代码执行效率问题

使用sqldataset循环读取数据库，根据数据库的记录，动态创建一批panel组件，执行时效率不高，屏幕一直闪烁，直到所有panel创建完成，怎么样才能提高这段代码的执行效率，或者别闪烁也可以，都创建完了再一起显示出来。代码如下：
var
mypnls:array[0..50] of Tpanel;
i,j,k,n,xx,yy:integer;

produce ..........;//代码在另一台电脑上，不能复制粘贴，只写关键部分吧
begin
j:=0;
k:=0;
n:=0;
for i=0 to sqldataset1.recordcount-1 do
begin
xx:=160*j;
if xx>1440 then
begin
j:=0;
inc(k);
end;
xx:=160*j;
yy:=55*k;
inc(j);
mypnls[n]:=Tpanel.creat(nil);
mypnls[n].parent:=panel_main;
mypnls[n].Left:=xx;
mypnls[n].Top:=yy;
sqldataset1.next;
end;
end;

Answer 1

panel_main.DoubleBuffered := True;
mypnls[n].DoubleBuffered := True;
或者创建时 panel_main.Enable := False;
建完再panel_main.Enable := True;
这样可以不闪