Discussion :

[richard038]

Bonjour,

J'utilise des composants dynamique que je voudrais stocker dans un tableau dynamique

Par contre à la création d'un second composant j'ai un message de débordement de pile. Voici mon code

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
var
  TabComponent  : array of TComponent
 
 for i:=0 to length(FLD_Label)-1 do
    begin
      Setlength(TabComponent, i+1);
 
     TabComponent[i] := TDBedit.Create(self);
     with TabComponent[i] do
     begin
       Name := FLD_Type[i]+inttostr(i);
       Parent := ScrollBox1;
       Left := Left_value;
       Top :=  Top_Value;
       Width := DBEdit_Code.Width;
     end;
 
    with TLabel.Create(self) do
    begin
      Name := 'Label'+inttostr(i);
      Parent := ScrollBox1;
      Left := Left_value;
      Top :=  Top_Value -15 ;
      Caption := FLD_Label[i]+' :';
    end;
end;

Merci de votre aide

[edit]Balises de code ajoutées par Pascal Jankowski[/edit]

[Pascal Jankowski]

Pourquoi ne places-tu ton instruction

Code :

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

Setlength(TabComponent, i+1);

dans ta boucle ?

et si avant la boucle tu fais

Code :

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

Setlength(TabComponent,length(FLD_Label));

D'autre part si tu crées un tableau dynamique uniquement pour retrouver tes composants tu peux peut-être t'inspirer de ce post :

Cordialement

[richard038]

En fait je veux surtout les supprimer à la fermeture de la form

[Pascal Jankowski]

Tlabel et TDBEdit sont des descendants de TComponent , il suffit donc de transmettre au contructeur Create via la propriété Owner, le propriétaire du composant. Comme cela le propriétaire sera en charge de la libération de ses composants locataires.

Partant de ce principe tu n'as pas besoin de les libérer toi-même cela se fera automatiquement dès destruction du composant propriétaire.

Code :

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

1
2
3
4
5
6
7
 
     with TDBedit.Create(ScrollBox1) do
     begin
       Name := FLD_Type[i]+inttostr(i);
       Parent := ScrollBox1;
       ...
     end

Dans ce cas c'est scrollBox1 (owner) qui libérera le TBEdit.

Dans le cas des composants qui ne dérivent pas d'un TComponent alors là il faudra libérer soi-même les composants créés.

Cordialement

[richard038]

Merci,

Maintenant mon soucis est l'affectation de certaines propriétés (comme DATAFIELD et DATASOURCE) pour les TDBEdit et TDBMemo. Le composant le plus proche des 2 dans la hiérarchie des classes et TCUSTOMEDIT, mais il ne dispose de ces propriétés.

Comme je cherche à faire une fonction générique pour leur création dynamique, je coince....

[Pascal Jankowski]

Je ne comprends pas bien où est le problème.

Soit plus explicite.

Cordialement

[richard038]

Je voudrais crée mes composants avec la fonction suivante

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
29
var
  Component1 : TCComponent
begin
  case AnsiIndexStr(UpperCase(FLD_Type), ['EDIT', 'MEMO', 'RADIOBUTTON', 'LABEL']) of
    0 : Component1 := TDBEdit.Create(self);
    1 : Component1 := TDBMemo.Create(self);
    2 : Component1 := TRadioButton.Create(self);
    3 : Component1 := TLabel.Create(self);
  end;
 
  with Component1 do
  begin
    Name := FLD_Type+inttostr(FLD_num);
    Parent := ScrollBox1;
    Left := Left_value;
    Top :=  Top_Value;
    if UpperCase(FLD_Type)='LABEL' then
    begin
      Caption := Caption_value;
    end;
    if UpperCase(FLD_Type) <> 'LABEL' then
    begin
      [b]DataField[/b] := 'FLD'+IntToStr(FLD_num+1);
      [b]DataSource[/b] := DataSource1;
      Width := Width_Value;
      FLD[FLD_num].Name_Zone := Name;
      FLD[FLD_num].Height_Zone := Height;
    end;
  end;

Mais la compilation bloque sur le gras puique ces propriétés n'existent pas pour le TCOMPONENT

[Pascal Jankowski]

Il faut "caster" dans ce cas précis :

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
 
  case AnsiIndexStr(UpperCase(FLD_Type), ['EDIT', 'MEMO', 'RADIOBUTTON', 'LABEL']) of
    0 : Component1 := TDBEdit.Create(self);
    1 : Component1 := TDBMemo.Create(self);
    2 : Component1 := TRadioButton.Create(self);
    3 : Component1 := TLabel.Create(self);
  end; 
  //Transtypage ci-dessous
  if component1 is TDBEdit
    then with TDBEdit(component1) do
            begin
               DataField := 'FLD'+IntToStr(FLD_num+1);
               DataSource := DataSource1;
            end
   else
  if component1 is TDBMemo
    with TDBMemo(component1) do
            begin
               DataField := 'FLD'+IntToStr(FLD_num+1);
               DataSource := DataSource1;
            end;
  //fin de transtypage
  With component1 do .....

Cordialement

[Nono40]

Une autre solution :
http://delphi.developpez.com/faq/?pa...roprieteparnom

[richard038]

merci