[Delphi] Jak szybko tworzyc dynamiczne Edity

cells : array [0..15, 0..15] of TEdit;

{...}

procedure TForm1.FormActivate(Sender: TObject);
var
i, j : integer;
begin
if firstshow then
begin
LockWindowUpdate(Form1.Handle);
for i:=0 to 15 do
for j:=0 to 15 do
begin
Cells[i,j]:=TEdit.Create(Form1);

    with Cells[i,j] do
      begin
        Parent:=Form1;
        Text:='';
        Width:=26;
        Height:= 20;
        Font.Name:='Courier New';
        Font.Size:=8;
        Left:=28+i*28;
        Top:=22+j*22;
      end;
  end;
firstshow:=false;
LockWindowUpdate(0);

No i program startuje 10 sekund. Komp jest slabiutki, ale bez przesady!!! Ktos ma jakis pomysl, czy robic te Edity statycznie?
--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

Sprawdziłem i tez u mnie tworzy to około 10 sekund. Udało mi się skrócić to do jakichś 3-4 sekund wystarczy ze przestawisz Parent:=Form1; na dół tzn. :

with Cells[i,j] do
begin
....
Parent:=Form1;
end;

--W poszukiwaniu rozwiązania problemu, najbardziej pomocna jest znajomość odpowiedzi.

Sheitar napisał:
&gtUdało mi się skrócić to do jakichś 3-4 sekund wystarczy ze przestawisz
&gt
dzieki, bardzo pomoglo. strasznie nie chce mi sie ich statycznie ukladac na formie ;)))--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

zamiast tylu edit'ów wstaw jednego StringGrid'a, znacznie prosciej i przy odświerzaniu formy nie będą ci edit'y migały.

mirekpil napisał:
zamiast tylu edit'ów wstaw jednego StringGrid'a, znacznie prosciej i przy odświerzaniu formy nie będą ci edit'y migały.

Dobry pomysl, sprobuje. dzieki--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1