Discussion :

[Invité]

Bonjour,

Je suis tombé sur cette page du wiki.
Ils donnent le code suivant :

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
procedure TForm1.FormCreate(Sender: TObject);
var
  TaskDialog: TTaskDialog;
  Button: TTaskDialogBaseButtonItem;
begin
  // display a task message dialog at a certain position
  TaskMessageDlgPos('Continue', 'Are you sure you want to continue?', mtWarning, mbYesNoCancel, 0, 10, 10);
 
  // display another message dialog at the current position
  TaskMessageDlg('Error', 'An error has occured', mtError, mbAbortRetryIgnore, 0);
 
  // create a custom task dialog
  TaskDialog := TTaskDialog.Create(Self);
  TaskDialog.Title := 'An error has occured in the query.';
  TaskDialog.Caption := 'Query result';
 
  // assign a MB_OK modal result to the task dialog
  TaskDialog.ModalResult := MB_OK;
 
  // add some customized buttons to the task dialog
  Button := TaskDialog.Buttons.Add;
  Button.Caption := 'Continue';
  Button.ModalResult := MB_OK;
 
  Button := TaskDialog.Buttons.Add;
  Button.Caption := 'Retry';
  Button.ModalResult := MB_RETRYCANCEL;
 
  // display the dialog box
  TaskDialog.Execute;
end;

Il n'y a pas de libération du TTaskDialog à la fin du traitement. C'est un oubli ?


Lié à ces histoires de libération, lorsque j'ajoute manuellement des composants dans un form, sont-ils bien détruits automatiquement à la fermeture du form ?

[SergioMaster]

Bonjour,

Peut-être que c'est un interface, ce qui évite le besoin de "libération", j'ai pas eu le temps de vérifier dans les sources

[Thierry Laborde]

Bonjour,

Un Composant (Classe TComponent minimum) a 1 propriété qui est très importante et qui n'existe pas sur un objet : Le Owner.
Le Owner est le propriétaire du composant. Il est indiqué à la création du composant. Donc ici :

TaskDialog := TTaskDialog.Create(Self);

Le owner est : Self, donc c'est la form qui est propriétaire du composant.
Le rôle du propritétaire est de libérer tous les composants dont il est le propriétaire lorsqu'il est détruit. Donc quand la form est détruite elle détruite automatiquement tous les composants dont elle est propriétaire.
Pour info, à la conception, quand je dépose un composant sur une Form, le propriétaire du composant est automatiquement la Form.

ATTENTION, je pourrais créer dynamiquement un composant sans Owner, comme ceci :

Code :

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

 TaskDialog := TTaskDialog.Create(Nil);

Dans ce cas là le composant n'a pas de Owner et il faudra obligatoirement que je le détruise par le biais du code.

[Thierry Laborde]

Je rajouterai une précision, attention de ne pas confondre le Parent et le Owner sur un composant.

[ShaiLeTroll]

Je rajouterai une précision, attention de ne pas confondre le Parent et le Owner sur un composant.

Mais au niveau libération, c'est plus bien tordu : https://www.developpez.net/forums/d6.../parent-owner/

C'est un oubli ?

Je ferais un mail via le menu feedback en bas de page pour leur proposer la correction "create try finally free" que le code soit propre.
Avoir un Create avec Owner sur une variable locale, ce n'est pas terrible

[ALWEBER]

C'est un oubli. Le "destructor" effectue entre autres les opérations suivantes

Code :

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

1
2
3
4
5
6
7
8
9
10
 
destructor TCustomTaskDialog.Destroy;
begin
  FButtons.Free;
  FCustomFooterIcon.Free;
  FCustomMainIcon.Free;
  FProgressBar.Free;
  FRadioButtons.Free;
  inherited;
end;

[Invité]

Merci de vos précisions, je vais creuser.
Je ne comprenais effectivement pas le rôle de owner, que j'avais tendance à confondre effectivement avec le parent.

[pprem]

Il me semble aussi plus propre de libérer la mémoire allouée quand l'objet n'a pas de raison de rester au delà de la portée de son pointeur.

Dans le cas présent, dans un FormCreate, c'est un peu bizarre, mais en effet il devrait y avoir libération après avoir récupéré le résultat du Execute.

Avoir un Create avec Owner sur une variable locale, ce n'est pas terrible

Je ne vois pas ce qui te dérange dans le fait de déclarer une variable locale pour allouer une zone mémoire avec un objet ou un composant ensuite rattaché à autre chose.

C'est comme si on avait fait un moche "with ttaskdialog.create(self) do begin end" sans déclarer la variable du coup.

[ShaiLeTroll]

Oui c'est un abus de langage, je voulais dire "Create avec Owner" avec une instance que l'on sait avec une durée de vie locale

[Invité]

Mais au niveau libération, c'est plus bien tordu : https://www.developpez.net/forums/d6.../parent-owner/

c'est intéressant, je vais passer du temps à lire tout ça

[Invité]

J'ai lu la cette discussion.

Je comprends bien que les composants sont détruits par leur owner ou parent.

Par contre, je n'arrive pas à comprendre l'erreur postée par Paul.
Pourquoi FPanel est déjà à nil, qui l'a détruit ?

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
type
  TForm1 = class(TForm)
    Frame1: TFrame1;
  end;
// ...
  TFrame1 = class(TFrame)
  private
   FPanel : TPanel;
  public
   constructor Create(AOwner: TComponent);
   destructor Destroy; override;
  end;
 
constructor TFrame1.Create(AOwner: TComponent):
begin
  inherited;
  FPanel := TPanel.Create(Self);
  FPanel.Parent := Self.Parent;
end;
 
destructor TFrame1.Destroy;
begin
  FPanel.Free; // inutile, mais n'aurait pas du planter...mais si :)
  inherited;
end;

De ce que je croyais comprendre :
En se détruisant, TForm1 détruit Frame1.
En étant détruit Frame1 libère FPanel.

Comme FPanel est déjà détruit, ce serait TForm1 qui l'aurait détruit avant ?

[ShaiLeTroll]

Code :

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

FPanel.Parent := Self.Parent;

Cette ligne est très importante sur la gestion du Parent et montre la subtilité avec le Owner

Justement FPanel n'est pas à nil et du coup le Free plante en essayant de libérer une deuxième fois le FPanel
FPanel est libéré par le Parent car FPanel n'est pas dans la Frame mais placé en dehors, la libération de FPanel et Frame1 c'est même parent que l'effectue (Form1)
La libération est faite du dernier au premier, du coup FPanel est libéré juste avant Frame1

[Invité]

J'avais mal lu le code, La parent de FPanel, n'est pas Self mais Self.Parent, donc TForm1 !

Code :

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

FPanel.Parent := Self.Parent;

J'ai donc bien compris. Dommage que je ne puisse pas mettre résolu une deuxième fois

[ALWEBER]

Si je ne me trompe pas ce code est une erreur

Code :

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

1
2
 
FPanel.Parent := Self.Parent;

Voici le code que j'avais publié en 2009 mis à jour pour les version récentes de Delphi
Une fois le programme lancé tu peux cliquer sur l'un des TPanel

[Invité]

Si je ne me trompe pas ce code est une erreur

Non, c'est un exemple qu'avait donnée Paul pour expliquer justement comment il avait compris le fonctionnement des owners.
C'est dans le lien donnée par ShaiLeTroll dans cette discussion.

[ALWEBER]

Non, c'est un exemple qu'avait donnée Paul pour expliquer justement comment il avait compris le fonctionnement des owners.
C'est dans le lien donnée par ShaiLeTroll dans cette discussion.

Je sais j'avais participé à cette discussion en 2009 et oui déjà
.
Pour exemple tu créée une fiche avec un objet TPanel. Dans le onActivate tu met le code suivant :

Code :

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

1
2
3
4
 
ShowMessage(Panel1.Owner.Name);
ShowMessage(Panel1.Parent.Name);
ShowMessage(Form1.Parent.name);

La troisième ligne te sort une erreur car la propriété Parent d'un TForm est toujours à NIL
Donc si tu écris "FPanel.Parent := Self.Parent;" cela revient à écrire "FPanel.Parent := NIL" ce qui ne peut que te poser des problèmes
Regardes bien aussi l'exemple que je t'ai envoyé dans mon post précédent

[Invité]

La troisième ligne te sort une erreur car la propriété Parent d'un TForm est toujours à NIL
Donc si tu écris "FPanel.Parent := Self.Parent;" cela revient à écrire "FPanel.Parent := NIL" ce qui ne peut que te poser des problèmes
Regardes bien aussi l'exemple que je t'ai envoyé dans mon post précédent

C'est bon, j'ai bien compris.

"FPanel.Parent := Self.Parent;" c'est bizarre, mais ça ne pose pas de problème.
Self fait référence à TFrame1 et Self.Parent à TForm1.
C'est donc TForm1 qui détruit FPanel.