Programmation en dynamique

**Cpt Anderson** · 26/03/2007, 14h54

Bonjour à tous,

je me suis fais un petit programme avec des composants crées dynamiquement et gerés dynamiquement. J'ai des exceptions assez étranges. C'est surtout les erreurs lors du "moins" qui m'intriguent. Est ce parce que mes objets ne se liberent pas ?

Voici le code. Je précise que je travaille en Delphi 7.

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    sb      : TScrollBox ;
    gb      : TgroupBox ;
    btPlus  : TBitBtn ;
    btMoins : TBitBtn ;
    ICompteur : integer ;
    itop      : integer ;
    Procedure CreeGroupBox   ;
    Procedure OnclickPlusGB(Sender: TObject) ;
    Procedure OnclickMoinsGB(Sender: TObject) ;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
Procedure TForm1.CreeGroupBox   ;
var
 i : integer ;
begin
 if sb <> nil then
  freeandnil(sb) ;
 sb        := TScrollBox.Create(Form1) ;
 sb.Parent := Self ;
 sb.Align  := alClient ;
 
 for i:=0 to Icompteur-1 do
  begin
   gb        := TgroupBox.Create(sb) ;
   gb.Parent := sb ;
   gb.Left   := 200;
   gb.Width  := 500 ;
   gb.Top    := gb.Top + (200*i) ;
   gb.Height := 150 ;
 
   btPlus         := TBitBtn.Create(gb) ;
   btPlus.Parent  := gb ;
   btPlus.Top     := 20 ;
   btPlus.Left    := 100 ;
   btPlus.OnClick := OnclickPlusGB ;
   btPlus.Caption := 'Plus' ;
 
   btMoins         := TBitBtn.Create(gb) ;
   btMoins.Parent  := gb ;
   btMoins.Top     := 80 ;
   btMoins.Left    := 100 ;
   btMoins.OnClick := OnclickMoinsGB ;
   btMoins.Caption := 'Moins' ;
 end ;
end ;
 
Procedure TForm1.OnclickPlusGB(Sender: TObject) ;
begin
 Inc(ICompteur);
 CreeGroupBox  ;
end ;
 
Procedure TForm1.OnclickMoinsGB(Sender: TObject) ;
begin
 if ICompteur > 1 then
  ICompteur := ICompteur -1 ;
 CreeGroupBox  ;
end ;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 ICompteur := 1 ;
 itop := 50 ;
 CreeGroupBox ;
end;
 
end.

**slimjoe** · 26/03/2007, 15h16

Salut!

Je n'ai pas creusé profondément ton code, mais à première vue, on dirait que tes boutons servent à se détruire eux-mêmes, ce qui ne peut que générer des erreurs.

Si tu cherches à faire en sorte qu'un objet puisse se détruire lui-même, je te suggère d'effectuer une recherche sur ce forum. Il existe plusieurs solutions qui ont fait l'objet de discussions ces derniers temps (utilisations de messages Windows, etc.).

Bon dev!

**Cpt Anderson** · 26/03/2007, 15h21

oui en fait tous mes composants sont crée sur le(s) groupBox, lesquels sont crées sur le scrollbox.

Si, à chaque fois que j'ajoute ou que je soustrait, je détruis le scrollbox, cela ne suffit il pas ? pourquoi ai je ces erreurs ? je ne comprend pas trop !

**Yurck** · 26/03/2007, 15h51

Comme le dit slimjoe tu scies la branche sur laquelle tu es assis.

L'évènement OnClick est appelé dans le code du composant (doclick).
Et c'est dans ce code que tu appelles une méthodes qui (au travers des liens de parentés et de propriétés entre les composants ) détruit le dit composant.

Code :

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

1
2
3
 
if sb <> nil then
  freeandnil(sb) ;

Tu devrais réfléchir à une autre cinétique de programme ou à une autre architecture de fenêtre.
D'ailleurs lorrsque tu fais un moins plutôt que de tout détruire pourquoi ne pas détruire seulement le groupbox concerné.
Pour cela détaches auparavant lres liens qui unissent tes composants (removecontrol) .

etc...

a+

**Gilbert Geyer** · 26/03/2007, 15h59

Bonjour,

Je vois que ne suis pas seul à avoir ce type de problème dans un contexte similaire :
- Je crée et affiche dynamiquement des images en ayant déclaré leur parent,
- Pas de problème pour les détruire en rafale dans une boucle,
- Mais impossible de détruire à l'unité une image sélectionnée à la souris sans que cette destruction ne déclenche le message d'erreur "Violation d'accès à l'adresse ..." ou selon l'humeur du moment "Le contrôle '' n'a pas de parent" sans citer le nom du contrôle alors que chacun d'eux en porte un du type Img suivi de son numéro de création et que chacun a son parent déclaré !!!.

Mais comme la destruction s'est quand même produite (ce qui est l'essentiel) ne peut-on bloquer l'affichage de ce type de message d'erreur ?

**Rayek** · 26/03/2007, 16h11

Envoyé par Cpt Anderson

oui en fait tous mes composants sont crée sur le(s) groupBox, lesquels sont crées sur le scrollbox.

Si, à chaque fois que j'ajoute ou que je soustrait, je détruis le scrollbox, cela ne suffit il pas ? pourquoi ai je ces erreurs ? je ne comprend pas trop !

En fait l'erreur vient du fait que tu detruis le composant alors que l'évènement n'est pas encore fini.

Exemple: Un groupbox avec 2 labels et un bouton

1- Clic sur le bouton -> Evenement en cours OnClick
2- Destruction des labels
3- Destruction du bouton
4- Destruction du GroupBox
5- Fin de l'évènement OnClick -> Erreur le bouton n'existe plus

C'est schématique bien sûr ^^

La solution la plus simple est de mettre un timer qui exécute l'action de destruction.
Pour ma part, dans un cas comme celui la. Je mets tous les éléments que je veux détruire en Visible := False puis je execute le timer qui détruit tous les composants non visible.