在RunTime時產生100個Button 裡面會設定到Button的屬性,所以花了很多時間 請問要如何加快速度 for i := 1 0 to 100 do begin with TButton.Create(self) do begin parent := panel1; width := 10; height := 10; color := AColor; ...... end; end;

Flickers? Hide the form and show it later? or lock the form:

LockWindowUpdate(Handle);
try
for i := 1 0 to 100 do
begin
 with TButton.Create(self) do
 begin
  parent := panel1;
  width := 10;
  height := 10;
  color := AColor;
......
 end;
end;
finally
  LockWindowUpdate(0);
end;