Discussion :

[BuzzLeclaire]

Bonjour à toutes et à tous,

Afin d'en apprendre toujours plus...

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
procedure TFTaches.sComboBoxDropDownTab(Sender: TObject);
Var
  TabSheet : TsTabSheet;
// ...
begin
//...
 
  if (Sender is TsComboBox) then
  begin
    if Not (TsComboBox(Sender).Parent is TsTabSheet) and Not (TsComboBox(Sender).Parent is TsGroupBox) then Exit;
    if (TsComboBox(Sender).Parent is TsTabSheet) then TabSheet := TsTabSheet(TsComboBox(Sender).Parent);
    if (TsComboBox(Sender).Parent is TsGroupBox) then TabSheet := TsTabSheet(TsGroupBox(TsComboBox(Sender).Parent).Parent);
 
//...
end;

Il y a-t-il une limite de la recherche d'un parent ? comme la denrière ligne où je recherche le parent du parent.

As quelle problème je peux être confronté de jouer de la sorte ?

Je vous remercie par avance.

[Pascal Jankowski]

La limite est fixée par l'existence de l'instance parent que tu peux vérifier de la façon suivante :

Code :

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

1
2
3
4
5
6
7
 
procedure ShowInfos(AObj: TWinControl);
begin
  if Assigned(AObj)
    then ShowMessage(AObj.ClassType.ClassName)
    else ShowMessage('Pas de parent');
end;

Il est parfois interessant dans certaines situations de connaître également l'instance chargée de la destruction d'un composant. Tu peux alors y accéder en utilisant la propriété Owner.

Par exemple, tu crées une fiche sur laquelle tu déposes un TPanel, puis un TButton sur ce TPanel.

Tu pourras accéder à la TForm à partir de ton TButton de cette première manière :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm2.Button1Click(Sender: TObject);
var
  Obj: TWinControl;
begin
  Obj := TWinControl(Sender).Parent;
  ShowInfos(Obj);
  Obj := TWinControl(Obj).Parent;
  ShowInfos(Obj);
end;

Mais également plus rapidement en appelant la valeur de la propriété Owner du TButton comme ceci.

Code :

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

1
2
 
ShowMessage(TWinControl(Sender).Owner.ClassType.ClassName);

En espérant t'apporter quelques lumières sur le sujet

[Caribensila]

Salut,

Y a t-il une limite de la recherche d'un parent ? Comme la dernière ligne où je recherche le parent du parent.

Il n'y a théoriquement pas de limite.

A quel problème je peux être confronté à jouer de la sorte ?

- Parent, contrairement à Owner, est une propriété qui peut être changée au cours du programme.
- Un composant peut ne pas avoir de parent.

[BuzzLeclaire]

Bonjour,

Merci de vos explications, ce qui me surprends c'est ce que dit Caribensila
"- Parent, contrairement à Owner, est une propriété qui peut être changée au cours du programme.
"

Hallucinant...

Bref, j'essai d'utiliser au mieux Delphi.
je vais détailler ce que je fais pour que vous puissiez me dire si je fais des erreurs ou pas.

Mes composants sont créés dynamiquement à partir du 2ème Tabsheet, j'utilise pour les créer un record :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
type
  Ong=record
    Tab      : TsTabSheet;
    Shape    : TShapeRu;
    LabelObj : TsLabel;
    ComboObj : TsComboBox;
    LabelCat : TsLabel;
    ComboCat : TsComboBox;
    PanelShap: TsPanel;
    Bev      : TBevel;
    LabelCli : TsLabel;
    ComboCli : TsComboBox;
    LabelNom : TsLabel;
    EditNom  : TsEdit;
 
    GrpBxLien: TsGroupBox;
    LabelCha : TsLabel;
    ComboCha : TsComboBox;
    LabelLib : TsLabel;
    EditLib  : TsEdit;
    LabelDoc : TsLabel;
    ComboDoc : TsComboBox;
    LabelDat : TsLabel;
    DatDoc   : TsDateEdit;
    LabelMtHT: TsLabel;
    EditMtHT : TsEdit;
    LabelTpsP: TsLabel;
    EditTpsP : TsEdit;
    LabelTra : TsLabel;
    ComboTra : TsComboBox;
 
    GrpBxDesc: TsGroupBox;
    MemoDesc : TsMemo;
end;
 
type
  TFTaches = class(TForm)
//...
 
// procedure pour composant du sTabSheet dynamique
    procedure sComboBoxEnterTab(Sender: TObject);
    procedure sComboBoxObjetExitTab(Sender: TObject);
    procedure sComboBoxCategorieChangeTab(Sender: TObject);
    procedure sComboBoxCategorieKeyDownTab(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure sComboBoxDropDownTab(Sender: TObject);
    procedure sComboBoxChangeTab(Sender: TObject);
    procedure sComboBoxKeyPressTab(Sender: TObject; var Key: Char);
 
 
  private
    { Déclarations privées }
// ...
    OngList :array of Ong;
// ...
 
// création dynamique dans le sTabSheet
    procedure CreateTabSheet(Nombre,ShapeMere:Integer);
  public
    { Déclarations publiques }
  end;
 
var
  FTaches: TFTaches;
implementation
 
{$R *.dfm}
 
Uses
// ...
 
procedure TFTaches.FormCreate(Sender: TObject);
var
  i,Len: Integer;
begin
// Par defaut on à déjà un sTabsheet de créer
  Len:= Length(OngList);
  SetLength(OngList,Len + 1);
 
// ...
end;
 
{création dynamique}
procedure TFTaches.CreateTabSheet(Nombre, ShapeMere: Integer);
var
  NewTabSheet  : TsTabSheet;
  Len:integer;
  i : integer;
begin
  With Fdata.QryTravail1 do
  begin
    SQL.Clear;
    SQL.Add('Select * From SousTaches Where CodeShape= :xCodeShape');
    SQL.Add('Order by NumLigne');
    Parameters.ParamByName('xCodeShape').Value := ShapeMere;
    try
      Open;
      while not eof do
      begin
        // Ajout d'un nouvel onglet
        With sPageControlTache do
        Begin
          NewTabSheet := TsTabSheet.Create(sPageControlTache);
          with NewTabSheet do
          begin
            PageControl := sPageControlTache;
            Name        := 'TabSheet'+IntToStr(Pageindex);
            Caption     := 'Ss-Tâche ' + IntToStr(Pageindex);
            Tag         := FieldByName('NumLigne').AsInteger;
          end;
          Len:= Length(OngList);
          SetLength(OngList,Len + 1);
          OngList[Len].Tab   := NewTabSheet;
 
          With OngList[len] do
          begin
            LabelObj        := TsLabel.Create(Tab);
            LabelObj.Name   := 'ObjLabel'+IntToStr(Tab.PageIndex);
            LabelObj.Parent := Tab;
            LabelObj.Left   := sLabelObjet.Left;
            LabelObj.Top    := sLabelObjet.Top;
            LabelObj.Caption:= sLabelObjet.Caption;
 
            ComboObj          := TsComboBox.Create(Tab);
            ComboObj.Name     := 'ObjCombo'+IntToStr(Tab.PageIndex);
            ComboObj.Parent   := Tab;
            ComboObj.Left     := sComboBoxObjet.Left;
            ComboObj.top      := sComboBoxObjet.top;
            ComboObj.Width    := sComboBoxObjet.Width;
            ComboObj.Alignment:= sComboBoxObjet.Alignment;
            ComboObj.Text     := FieldByName('Objet').AsString;
            ComboObj.Tag      := Tab.PageIndex;
            ComboObj.OnEnter  := Self.sComboBoxEnterTab;
            ComboObj.OnExit   := Self.sComboBoxObjetExitTab;
            ComboObj.Items    := sComboBoxObjet.Items;
 
            LabelCat        := TsLabel.Create(Tab);
            LabelCat.Name   := 'CatLabel'+IntToStr(Tab.PageIndex);
            LabelCat.Parent := Tab;
            LabelCat.Left   := sLabelCategorie.Left;
            LabelCat.Top    := sLabelCategorie.Top;
            LabelCat.Caption:= sLabelCategorie.Caption;
 
            ComboCat          := TsComboBox.Create(Tab);
            ComboCat.Name     := 'CatCombo'+IntToStr(Tab.PageIndex);
            ComboCat.Parent   := Tab;
            ComboCat.Left     := sComboBoxCategorie.Left;
            ComboCat.top      := sComboBoxCategorie.Top;
            ComboCat.Width    := sComboBoxCategorie.Width;
            ComboCat.Alignment:= sComboBoxCategorie.Alignment;
            ComboCat.OnChange := Self.sComboBoxCategorieChangeTab;
            ComboCat.OnKeyDown:= Self.sComboBoxKeyDown;
            ComboCat.Items    := sComboBoxCategorie.Items;
            comboCat.Text     := '';
            ComboCat.ItemIndex:= -1;
 
            PanelShap        := TsPanel.Create(Tab);
            PanelShap.Name   := 'Pan'+inttostr(Tab.PageIndex);
            PanelShap.Parent := Tab;
            PanelShap.Left   := sPanelShape.Left;
            PanelShap.Top    := sPanelShape.Top;
            PanelShap.Height := sPanelShape.Height;
            PanelShap.Width  := sPanelShape.Width;
            PanelShap.Caption:= sPanelShape.Caption;
 
            Shape             := TShapeRu.Create(Tab);
            Shape.Name        := 'Sha'+inttostr(Tab.PageIndex);
            Shape.Parent      := PanelShap;
            Shape.Align       := alClient;
            Shape.Caption     := '';
            Shape.StartColor  := CouleurDegradeeStart;
            Shape.EndColor    := FieldByName('Couleur').AsInteger;
            Shape.OnMouseDown := Self.ShapeMouseDown;
            Shape.FlashEnabled:= False;
 
            Bev        := TBevel.Create(Tab);
            Bev.Name   := 'aBev'+IntToStr(Tab.PageIndex);
            Bev.Parent := Tab;
            Bev.Left   := BevelTache.Left;
            Bev.Top    := BevelTache.Top;
            Bev.Width  := BevelTache.Width;
            Bev.Height := BevelTache.Height;
 
            LabelCli        := TsLabel.Create(Tab);
            LabelCli.Name   := 'CliLabel'+IntToStr(Tab.PageIndex);
            LabelCli.Parent := Tab;
            LabelCli.Left   := sLabelClient.Left;
            LabelCli.Top    := sLabelClient.Top;
            LabelCli.Caption:= sLabelClient.Caption;
 
            ComboCli            := TsComboBox.Create(Tab);
            ComboCli.Name       := 'CliCombo'+IntToStr(Tab.PageIndex);
            ComboCli.Parent     := Tab;
            ComboCli.Left       := sComboBoxClient.Left;
            ComboCli.top        := sComboBoxClient.Top;
            ComboCli.Width      := sComboBoxClient.Width;
            ComboCli.Alignment  := sComboBoxClient.Alignment;
            ComboCli.Text       := FieldByName('CodeClient').AsString;
            ComboCli.Hint       := sComboBoxClient.Hint;
            ComboCli.OnKeyPress := Self.sComboBoxKeyPressTab;
            ComboCli.OnDropDown := Self.sComboBoxDropDownTab;
            ComboCli.OnChange   := Self.sComboBoxChangeTab;
 
            LabelNom        := TsLabel.Create(Tab);
            LabelNom.Name   := 'NomLabel'+IntToStr(Tab.PageIndex);
            LabelNom.Parent := Tab;
            LabelNom.Left   := sLabelNom.Left;
            LabelNom.Top    := sLabelNom.Top;
            LabelNom.Caption:= slabelNom.Caption;
 
            EditNom         := TsEdit.Create(Tab);
            EditNom.Name    := 'CliEditNom'+IntToStr(Tab.PageIndex);
            EditNom.Parent  := Tab;
            EditNom.Left    := sEditNomClient.Left;
            EditNom.Top     := sEditNomClient.Top;
            EditNom.Width   := sEditNomClient.Width;
            EditNom.ReadOnly:= True;
            EditNom.Text    := FieldByName('NomClient').AsString;
 
            GrpBxLien         := TsGroupBox.Create(Tab);
            GrpBxLien.Name    := 'GrpBxLien'+IntToStr(Tab.PageIndex);
            GrpBxLien.Parent  := Tab;
            GrpBxlien.Left    := sGroupBoxLien.Left;
            GrpBxLien.Top     := sGroupBoxLien.Top;
            GrpBxLien.Width   := sGroupBoxLien.Width;
            GrpBxLien.Height  := sGroupBoxLien.Height;
            GrpBxlien.Font    := sGroupBoxLien.Font;
            GrpBxLien.Caption := sGroupBoxLien.Caption;
 
            LabelCha        := TsLabel.Create(Tab);
            LabelCha.Name   := 'ChaLabel'+IntToStr(Tab.PageIndex);
            LabelCha.Parent := GrpBxLien;
            LabelCha.Left   := sLabelChantier.Left;
            LabelCha.Top    := sLabelChantier.Top;
            LabelCha.Font   := sLabelChantier.Font;
            LabelCha.Caption:= sLabelChantier.Caption;
 
            ComboCha            := TsComboBox.Create(Tab);
            ComboCha.Name       := 'ChaCombo'+IntToStr(Tab.PageIndex);
            ComboCha.Parent     := GrpBxLien;
            ComboCha.Left       := sComboBoxCodeChantier.Left;
            ComboCha.Top        := sComboBoxCodeChantier.Top;
            ComboCha.Width      := sComboBoxCodeChantier.Width;
            ComboCha.Alignment  := sComboBoxCodeChantier.Alignment;
            ComboCha.Font       := sComboBoxTranche.Font;
            ComboCha.Text       := FieldByName('CodeChantier').AsString;
            ComboCha.Hint       := sComboBoxCodeChantier.Hint;
            ComboCha.OnKeyPress := Self.sComboBoxKeyPressTab;
            ComboCha.OnDropDown := Self.sComboBoxDropDownTab;
            ComboCha.OnChange   := Self.sComboBoxChangeTab;
// ...
end;
 
{procedure dynamique des compo}
 
procedure TFTaches.sComboBoxCategorieKeyDownTab(Sender: TObject; var Key: Word; Shift: TShiftState);
Var
  i: Integer;
  TabSheet: TsTabSheet;
begin
  case Key of
    VK_BACK, VK_DELETE:
    begin
      TsComboBox(Sender).ItemIndex := -1;
      TabSheet := TsTabSheet(TsComboBox(Sender).Parent);
      With TabSheet do
      begin
        for i := 0 to ComponentCount  - 1 do
        begin
          if (Components[i] is TShapeRu) then
          begin
            (Components[i] as TShapeRu).EndColor := CouleurDefautTache;
            (Components[i] as TShapeRu).Invalidate;
            break;
          end;
        end;
      end;
    end;
    VK_DOWN, VK_UP: ; // On autorise ces touches
    else
      Key := VK_CANCEL;
  end;
end;
 
procedure TFTaches.sComboBoxChangeTab(Sender: TObject);
Var
  TabSheet: TsTabSheet;
begin
 
  if Not (TsComboBox(Sender).Parent is TsTabSheet) And Not (TsComboBox(Sender).Parent is TsGroupBox) then Exit;
  if (TsComboBox(Sender).Parent is TsTabSheet) then TabSheet := TsTabSheet(TsComboBox(Sender).Parent);
  if (TsComboBox(Sender).Parent is TsGroupBox) then TabSheet := TsTabSheet(TsGroupBox(TsComboBox(Sender).Parent).Parent);
 
  if TsComboBox(Sender).text = ''  then
  begin
    TsComboBox(Sender).Clear;
    case AnsiIndexStr(TsComboBox(Sender).Hint,['Client','Chantier','Document']) of
      0: OngList[TabSheet.PageIndex].EditNom.Text := ''; // Client
      1: OngList[TabSheet.PageIndex].EditLib.Text := ''; // Chantier
      2: // Document
      begin
        OngList[TabSheet.PageIndex].DatDoc.Text := '';
        OngList[TabSheet.PageIndex].EditMtHT.Text:= '';
        OngList[TabSheet.PageIndex].EditTpsP.Text:= '';
        OngList[TabSheet.PageIndex].ComboTra.Clear;
        OngList[TabSheet.PageIndex].ComboTra.Enabled := False;
        OngList[TabSheet.PageIndex].LabelTra.Enabled := False;
        OngList[TabSheet.PageIndex].MemoDesc.Text := '';
      end;
    end;
  end;
end;
 
//...
end.

Evidement je n'ai pas mis toute la procédure de création dynimaque, ni toute les procédures des composants dynamiques

Quelques questions :

Pensez vous que je drevrais placée dans le private de la form mes procédures lié au compo dynamique ? ou autrement dans le record ?

Comme Pascal dit :
"Il est parfois interessant dans certaines situations de connaître également l'instance chargée de la destruction d'un composant. Tu peux alors y accéder en utilisant la propriété Owner."

A aucun moment je Free mes composants dynamique dois je le faire ?

Merci

[Gilbert Geyer]

Bonjour,

Buzz : Hallucinant...

... le changement de parent au cours du programme peut être intéressant pour gérer l'interface au cours du programme.

Buzz : A aucun moment je Free mes composants dynamique dois je le faire ?

... si t'as une mémoire-vive énorme tu peux éventuellement t'en passer
... mais si tu veux économiser ta mémoire disponible vaut mieux libérer les composants au moment où ils sont devenus inutiles pour la suite.

A+.

[Pascal Jankowski]

Effectivement OWner, ne peut être changée en cours d'exécution car c'est une propriété en lecture seule.
Owner est attribuée lors de l'instanciation et c'est le constructeur qui est en charge d'affecter la valeur à la propriété OWner.

constructor Create(AOWner: TComponent);

Ce mécanisme permet de ne pas être obligé de s'occuper soi-même de la libération de l'instance. C'est le destructeur "Destroy" de l'instance parent qui s'en charge.

Par exemple, un TButton placé sur une TForm, sera automatiquement détruit quand la TForm sera détruite.

En l'occurrence, tu n'as pas besoin d'appeler la méthode "Free", pour suppimer les composants que tu as créé dynamiquement dans ton présent programme si ceux-ci existent durant toute la phase de l'exécution. (Surveille la mémoire tout de même).

Cependant, dans le cas où tu doives supprimer un de ces composants au cours de l'exécution, il est imépratif de penser à affecter la valeur nil à tous les événements associés au composant sous peine d'une erreur de violation.

Je m'explique:
- Lors de la création de ton composant "ComboObj", tu affectes la valeur "Self.sComboBoxEnterTab" à l'événement "OnEnter" (Ligne 132)

- Supposons que lors de l'exécution tu doives supprimer ce "ComboObj", au préalable, tu seras obligé d'affecter la valeur nil à "OnEnter" avant d'appeler la méthode Free.

[BuzzLeclaire]

Re,

J'ai bien compris vos explications à tous les deux.

Pour la destruction je n'ai pas de fuite mémorie donc je laisse le Realase de la form ce charger de cette destruction.

Maintenant j'ai poursuivi dan smon programme et je suis confronter à un drôle de phénomène.

J'ai un tabsheet de départ comme vous le savez qui contient des combo, label, groupbox etc...
ensuite je créée donc dynamiquement mes composants en me servant de certaine propriété des composant du tabsheet principal.

Mais lorsque que j'ai fais cela :

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
procedure TFTaches.MiseAjourDesComboCat(TabSheetRef: TsTabSheet; ComboRef: TsComboBox) ;
var
  i,n: Integer;
  index: String;
begin
  for i := 0 to sPageControlTache.PageCount - 1 do
  begin
    if sPageControlTache.Pages[i].Name <> TabSheetRef.Name then
    begin
        for n := 0 to sPageControlTache.Pages[i].ComponentCount - 1 do
        begin
          if (sPageControlTache.Pages[i].Components[n] is TsComboBox) then
          begin
            if (sPageControlTache.Pages[i].Components[n] as TsComboBox).Hint = 'Categorie' then
            begin
              (sPageControlTache.Pages[i].Components[n] as TsComboBox).Items := ComboRef.Items;
            end;
          end;
        end;
    end;
  end;
end;

J'ai du le remplacer par cela :

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
procedure TFTaches.MiseAjourDesComboCat(TabSheetRef: TsTabSheet; ComboRef: TsComboBox) ;
var
  i,n: Integer;
  index: String;
begin
  for i := 0 to sPageControlTache.PageCount - 1 do
  begin
    if sPageControlTache.Pages[i].Name <> TabSheetRef.Name then
    begin
      if sPageControlTache.Pages[i].Name = 'sTabTache' then
      begin
        sComboBoxCategorie.Items := ComboRef.Items;
      end
      else
      begin
        for n := 0 to sPageControlTache.Pages[i].ComponentCount - 1 do
        begin
          if (sPageControlTache.Pages[i].Components[n] is TsComboBox) then
          begin
            if (sPageControlTache.Pages[i].Components[n] as TsComboBox).Hint = 'Categorie' then
            begin
              (sPageControlTache.Pages[i].Components[n] as TsComboBox).Items := ComboRef.Items;
            end;
          end;
        end;
      end;
    end;
  end;
end;

En effet quand je parcours :

Code :

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

for n := 0 to sPageControlTache.Pages[i].ComponentCount - 1 do

Il n'y a aucun composant dans le tabsheet principal que j'ai moi même conçu par l'EDI, j'ai même essayer cela :

Code :

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

for n := 0 to sPageControlTache.ComponentCount - 1 do

J'arrive pas a comprendre pourquoi ?

Pourquoi il ne me trouve aucun composant dans mon tabsheet principal ?

[Caribensila]

ce qui me surprends c'est ce que dit Caribensila
"- Parent, contrairement à Owner, est une propriété qui peut être changée au cours du programme."

Hallucinant...

Il n'y a là rien d'hallucinant.
C'est la première méthode à employer lorsque tu veux déplacer un control en runtime. Tu reconnaîtras que c'est plus facile à implémenter qu'un Drag'n Drop ou un Drag'n Dock...

J'arrive pas a comprendre pourquoi ?
Pourquoi il ne me trouve aucun composant dans mon tabsheet principal ?

Parce que tu confonds ComponentCount et ControlCount.
Relis l'Aide en ligne de Delphi pour comprendre la différence.

[Dr.Who]

Et n'oublis pas de libèrer les composants créer de façon dynamique!

même si delphi possède un ramasse miette dans ces dernières version les plus ancienne ne l'ont pas.

pour t'aider utilise un TList ou mieux un TObjectList qui te permettra de contrôler la libération des objets (surtout avec TObjectList en creation Owned=true)

[Cl@udius]

même si delphi possède un ramasse miette dans ces dernières version les plus ancienne ne l'ont pas.

On a pondu un garbage collector sur D2010 ou XE ?

Et n'oublis pas de libèrer les composants créer de façon dynamique!

A regarder le code, tout les composants sont créés avec un Owner, donc a priori pas de problème.
Mais je ne contredirais pas , j'ai également cette habitude: ce que je crée, je le détruis.

[BuzzLeclaire]

...
Parce que tu confonds ComponentCount et ControlCount.
Relis l'Aide en ligne de Delphi pour comprendre la différence.

Pfff quel bur** que je fais , merci

Et n'oublis pas de libèrer les composants créer de façon dynamique!

même si delphi possède un ramasse miette dans ces dernières version les plus ancienne ne l'ont pas.

pour t'aider utilise un TList ou mieux un TObjectList qui te permettra de contrôler la libération des objets (surtout avec TObjectList en creation Owned=true)

Peux-tu me donner un exemple de création et de destruction dynamique avec un TObjectList ? (Puis-je y inclure des procédures lié au objet ? ou dois-je toujours les déclarer dans la Tform ?

Ou un lien.

Merci

[Caribensila]

A regarder le code, tout les composants sont créés avec un Owner, donc a priori pas de problème.
Mais je ne contredirais pas , j'ai également cette habitude: ce que je crée, je le détruis.

Créer un composant avec un Owner n'est pas une garantie très fiable. Encore faudrait-il que ce Owner soit lui-même libéré à la fin.
Le TObjectList propriétaire du Docteur est une bonne idée.

Il y a même le TComponentList qui est fait pour ça (il peut aussi être propriétaire de ses Objets).
En plus, TComponentList a un mécanisme de surveillance de ses composants. Quand l'un de ceux-ci est détruit, TComponentList s'actualise automatiquement et compacte la liste...
Enfin, quand l'instance de TComponentList est détuite, ses composants sont libérés automatiquement.

[tourlourou]

Un autre avantage des listes est de n'utiliser la boucle FindComponent qu'une fois pour les peupler.

[Andnotor]

Effectivement OWner, ne peut être changée en cours d'exécution car c'est une propriété en lecture seule.

On ne peut pas agir directement sur Owner, mais le changement de propriétaire est tout à fait possible par InsertComponent

il est imépratif de penser à affecter la valeur nil à tous les événements associés au composant sous peine d'une erreur de violation.

Inutile ou alors il y a une grosse erreur de conception !

En effet quand je parcours :

Code :

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

for n := 0 to sPageControlTache.Pages[i].ComponentCount - 1 do

Il n'y a aucun composant dans le tabsheet principal que j'ai moi même conçu par l'EDI

Normal : à la conception, c'est toujours la fiche qui est propriétaire

j'ai également cette habitude: ce que je crée, je le détruis.

Et bien c'est une erreur ! Avoir plusieurs objets responsables d'une destruction est le début des ennuis. Il faut être très systématique sur le reset des pointeurs.

[Lung]

Et bien c'est une erreur !

Pourquoi ?

Avoir plusieurs objets responsables d'une destruction est le début des ennuis. Il faut être très systématique sur le reset des pointeurs.

C'est à dire ?

[Pascal Jankowski]

il est imépratif de penser à affecter la valeur nil à tous les événements associés au composant sous peine d'une erreur de violation.

Inutile ou alors il y a une grosse erreur de conception !

Développe, car cela m'interesse de connaître exactement la façon de procéder afin d'éviter les erreurs de violation lors de la libération d'une instance sans désaffecter les événements propres à l'instance de l'objet.

Je dois sans doute passer à côté de quelque chose depuis tant d'années

[Andnotor]

@Lung
L'exemple le plus simple :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2 := TForm.Create(Application);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Form2.Free;
end;

A la fermeture du programme, Application détruit Form2 avant Form1 (ordre inverse de création). Erreur sur Form2.Free (Form2 <> nil).
Il faudrait que TForm2.Destroy affecte nil à Form2.

@Pascal Jankowski
Il n'y a normalement rien à faire de particulier si ce n'est éventuellement tester

Code :

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

csDestroying in ComponentState

A la destruction d'un composant, celui-ci demande à la fiche de lui retirer la focalisation (de façon assez brutale d'ailleurs) et détruit immédiatement son handle. Plus aucun événement n'est censé survenir.

[Lung]

@Lung
L'exemple le plus simple :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2 := TForm.Create(Application);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Form2.Free;
end;

A la fermeture du programme, Application détruit Form2 avant Form1 (ordre inverse de création). Erreur sur Form2.Free (Form2 <> nil).
Il faudrait que TForm2.Destroy affecte nil à Form2.

Je comprend pourquoi je n'ai pas d'erreur.
Dans le create, je donne Self et pas Application comme propriétaire.
Va falloir que je regarde ça de plus prêt.

[Caribensila]

On ne peut pas agir directement sur Owner, mais le changement de propriétaire est tout à fait possible par InsertComponent

Et pour changer le Owner d'un TControl, y a-il aussi un truc, Andnotor ?
(Parce que InsertControl ne change pas le Owner)

Ca m'intéresserait beaucoup pour la sauvegarde de l'Interface Utilisateur avec WriteComponentResFile et ReadComponentResFile.
Actuellement, je suis obligé de créer mes TControls dynamiquement afin de pouvoir leur choisir le Owner adéquat, mais c'est très fastidieux.

[Andnotor]

Même fonction puisqu'InsertComponent est défini au niveau de TComponent