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.

**anapurna** · 26/03/2007, 16h21

salut

sujet maintes fois debatu et maintes fois resolu

voir ici et la

@+ Phil

**slimjoe** · 26/03/2007, 16h33

Envoyé par anapurna

salut

sujet maintes fois debatu et maintes fois resolu

voir ici et la

@+ Phil

Cette problématique revient au moins à tous les mois. Ne serait-il pas judicieux d'en parler en FAQ ?

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

J'ai mis en attente dans la liste des QR à faire, normalement elle devrait apparaitre à la prochaine fournée ^^

**slimjoe** · 26/03/2007, 17h27

Envoyé par Malatar

J'ai mis en attente dans la liste des QR à faire, normalement elle devrait apparaitre à la prochaine fournée ^^

Quelle efficacité!

**Gilbert Geyer** · 26/03/2007, 18h23

Cpt Anderson : La remarque de Yurck qui disait "réfléchir à une autre cinétique de programme" est judicieuse, m'a mis la puce à l'orieille ... et m'a permis de résoudre mon problème de destruction d'image.

A cet effet j'ai :
-1) déclaré une variable globale nommée imageSlectionnee égale à nil,
-2) ensuite j'ai limité le contenu de la procedure TForm1.Image1MouseDown() associé à l'événement onMouseDown déclaré dans la routine de création dynamique des images à la seule instruction imageSlectionnee :=(Sender as tImage); (Auparavent cette instruction était complétée par celles qui concouraient à libérer l'image); Pour la nouvelle version cela donne ceci :

Code :

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

1
2
3
4
5
// : Pour Supprimer une image choisie par erreur :
//     - Click-souris-relâcher pour préselectionner l'image puis touches-clavier Ctrl + Suppr
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin    imageSlectionnee:=(Sender as tImage); end;

-3) En association avec le Form1.Keypreview:=true je provoque ensuite la libération de l'image et de son panel-support par la procédure suivante :

Code :

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

1
2
3
4
5
6
7
8
9
 
// Libération de l'image avec touches-clavier Ctrl + Suppr
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin    if (imageSlectionnee <>nil) and (ssCtrl in Shift) and (key=VK_DELETE) then
           begin (imageSlectionnee.parent as tPanel).free;
                   imageSlectionnee:=nil;
           end;
end;

Cela marche et je n'ai plus ces messagee d'erreur. Une parade similaire devrait pouvoir se trouver pour ton problème :
1) Identifier le ou les élément(s) à supprimer dans une première procédure.
2) Provoquer une libération différée avec une deuxième procédure

**Cpt Anderson** · 27/03/2007, 08h36

salut,

oui et j'ai deja reperé la maniere de faire mais tu sais comment cela se passe dans une societé, on a un temps imparti pour le dev. et il faut le respecter (meme si la, je l'ai deja dépassé) alors je dois faire en sorte que cela fonctionne correctement dès aujourd'hui; je fignolerais plus tard.

Bref, je te remercie et je regarderai ta solution en detail dès que je le pourrais...

**Cpt Anderson** · 27/03/2007, 11h45

Bon en ce qui concerne ma problématique, j'ai procédé de la façon suivante:

je ne libere plus ma scrollbox, je les crée au fur et à mesure mais je les stock dans une TObjectList et à la fermeture de la fenetre je boucle dans cet ObjectList pour liberer toutes mes scrollbox...

Je ne sais pas si c'est une bonne facon de faire mais ca fonctionne bien.

**slimjoe** · 27/03/2007, 14h09

Envoyé par Cpt Anderson

Bon en ce qui concerne ma problématique, j'ai procédé de la façon suivante:

je ne libere plus ma scrollbox, je les crée au fur et à mesure mais je les stock dans une TObjectList et à la fermeture de la fenetre je boucle dans cet ObjectList pour liberer toutes mes scrollbox...

Je ne sais pas si c'est une bonne facon de faire mais ca fonctionne bien.

Ce n'est pas particulièrement mauvais....
Perso j'ajouterais à ça du code qui viderais l'ObjectList à un intervalle régulier via un TTimer ou sur l'événement OnIdle de TApplication.

**Gilbert Geyer** · 27/03/2007, 14h37

On aurait également eu la possibilité :
- de libérer puis recréer la scrollbox dans la routine associée à un timer avec une instruction du style if monTrucALibérer<>nil then begin monTrucALibérer.free; monTrucALibérer:=nil; CreeGroupBox; end;
- après avoir identifié monTrucALibérer dans la Procedure TForm1.OnclickMoinsGB(Sender: TObject) ; où monTrucALibérer est le parent du parent du TBitBtn qui a émis l'évenement OnClickMoins.

Lorsque la libération est provoquée dans la routine du timer j'ai pu vérifier avec mon exemple d'image(s) à libérer que cela marche aussi sans provoquer de message d'erreur.

L'essentiel est que "ca fonctionne bien".

**Cpt Anderson** · 27/03/2007, 14h40

oui c'est ce qu'avait proposé malatar.

Véritablement, ca serait bien que dans la FAQ, on propose une solution tip-top à ce genre de problème.

**Rayek** · 27/03/2007, 15h09

Envoyé par Malatar

J'ai mis en attente dans la liste des QR à faire, normalement elle devrait apparaitre à la prochaine fournée ^^

**edam** · 27/03/2007, 15h11

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
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 ;

sa veut dire que tu crée Icompteur de TGroupbox(gb)??
pour ma part je préfére les message avec postmessage sans passé par un timer, je te donne un petit example pas testé, mais surement il te donneras une idée.

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
 
private
sb      : TScrollBox ;
gb      : TgroupBox ;
contro :Tcontrol ;
….
procedure Monmessage(var msg :Tmessage) ;message wm_user ;
Procedure suprimenfant(c :control) ;
Procedure CreeGroupBox   ;
end ;
Procedure TForm1.suprimenfant(c :control) ;
Var  i :integer ;
Begin
        For i :=0 to c.ControlCount-1 do
            c.Controls[i].Free ;
End ;
Procedure TForm1.Monmessage ;
Begin
         If  msg. WParam=2 then  // par example wparam=2 ==> surpim control 
             Begin
                 CreeGroupBox;
             End ;
End ;
procedure TForm1.FormCreate(Sender: TObject);
begin
 ICompteur := 1 ;
 itop := 50 ;
 postmessage(handle,wm_user,2,0);
end;
 
Procedure TForm1.CreeGroupBox   ;
var
 i : integer ;
begin
 if sb <> nil then
    begin
       Suprimenfant(sb) ; // tu peut faire une boucle ou simplement changer un peut suprimenfant pour qu'il soit récursif
       freeandnil(sb) ;
     end;
......

Programmation en dynamique

Delphi

Discussions similaires

Partager

Partager