Discussion :

[Melodie]

Bonjour,

existe-t'il une solution pour accélérer la création dynamique de composants dans une TForm ?

Dans l'exemple ci-dessous, je créé une centaine de TEdit.
Cela prend un certain temps.
Peut-être existe-t'il une astuce du type "BeginUpdate/EndUpdate" pour éviter par exemple que la Form ne se rafraîchisse pendant la création ?

Merci d'avance pour vos idées.
Yann

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
	n: integer;
	fEdit: TEdit;
begin
   for n:=1 to 100 do
   begin
       fEdit:= TEdit.Create(Self);
       fEdit.Parent:=Self;
       fEdit.Top:=(n*20);
       fEdit.Left:=10;
   end;
end;

[khaled-benloucif]

Bonsoir, essayes ce code, il n'accélère pas mais il affiche à la fois tes TEdit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
procedure TForm1.Button1Click(Sender: TObject);
var    n: integer;
       Panel: TPanel;
       T: DWord;
begin
 T:= GetTickCount;
 Panel:= TPanel.Create(Self);
 with Panel do
  begin
   AutoSize:= true;
   Visible:= false;
   Left:= 10;
   Top:= 10;
   Parent:= Form1;
   for n:=1 to 100 do
       with TEdit.Create(Self) do
        begin
         Parent:= Panel;
         Top:=(n*20);
         Left:= 0
        end;
   Resize;
   Visible:= true
  end;
 T:= GetTickCount- T;
 ShowMessage(IntToStr(T))
end;

temps d'exécution en moyenne entre 40ms à 150 ms chez moi sur un processeur 3Go H.T

[Andnotor]

Tu peux ajouter un LockWindowUpdate, mais le gain en temps et tout relatif .
Par contre, ça t'évitera le flicker.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
var
  n: integer;
  fEdit: TEdit;
begin
  try
     LockWindowUpdate(Handle);
 
     for n:=1 to 100 do
     begin
         fEdit:= TEdit.Create(Self);
         fEdit.Parent:=Self;
         fEdit.Top:=(n*20);
         fEdit.Left:=10;
     end;
  finally
     LockWindowUpdate(0);
  end;
end;

[khaled-benloucif]

salut Andnotor, je viens d'essayer ton code, il mets prés de 400ms à 500ms pour afficher les edits! t'en pense quoi ?

[Andnotor]

Pas grand chose à part que 100 edits seraient avantageusement remplacé par une StringGrid ou un ValueListEditor .

[Gilbert Geyer]

Bonjour,

Peut-être existe-t'il une astuce ... pour éviter par exemple que la Form ne se rafraîchisse pendant la création ?

Suggestion : Comme il n'y a raffraîchissement que si fEdit.visible:=True ce qui est le cas par défaut lors de la création dynamique, pour ma part j'ajouterais un fEdit.visible:=False; et un fEdit.Tag:=k + n; dans la boucle de création de n = 1 à 100
... et en fin création j'ajouterais une 2ième boucle pour rendre les Edit visibles en une seule rafale de raffraîchissement.

Le fEdit.Tag:=k + n; servant dans la deuxième boucle à distinguer les Edit ainsi créés de tous les autres Edit éventuellement présents sur la Form et dont le Tag est inférieur à k.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for ic:=0 to Form1.ComponentCount-1
          do if (Form1.components[ic] is TEdit) and (Form1.components[ic].Tag > k
             then (Form1.components[ic] as TEdit).Visible:=True;

... Reste plus qu'à chronométrer.

A+

[Paul TOTH]

Pas grand chose à part que 100 edits seraient avantageusement remplacé par une StringGrid ou un ValueListEditor .

tout à fait d'accord, 100 edit c'est 100 HWnd, c'est autant de ressource Windows allouée pour rien (je ne connais pas encore de PC avec 100 claviers

Même si l'interface ne se prête pas à la grid, il est tout à fait possible de n'utiliser qu'un seul TEdit qui se baladera sur la fiche en fonction de clics et des touches de clavier (Tab par exemple).