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

[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.

[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

[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.

[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.