Discussion :

[jcs2]

Je crée dynamiquement un bouton tout simple 'Button1'.

Lorsqu'on clique dessus, j'accomplis certaines actions, et finalement je voudrais le détruire.

Si je termine le gestionnaire 'Onclick' par un 'Button1.free', il y a plantage ce qui peut paraître normal.
Est-ce que je peux faire autrement?

[CapJack]

Il faut impérativement détruire le bouton après que tout le code du bouton ait été effectué, ce qui inclut l'évènement OnClick et ce qu'il y a encore après (dans le code source de TButton). Sinon, il y a exécution d'un code sur une instance qui n'existe plus, d'où le plantage.

Solution 0 : pourquoi détruire le bouton, alors qu'il suffit de le rendre invisible en mettant sa propriété visible à false ?

Solution 1 : écrire un gestionnaire Application.OnIdle (voir doc). Dans ce getstionnaire, tester une valeur booléenne, si elle est true, détruire le bouton et mettre la valeur à false. Dans le gestionnaire OnClick, mettre la valeur booléenne à true pour prévenir l'application qu'elle devra détruire le bouton.

Solution 2 : Envoyer un message personnalisé à la fiche (avec PostMessage), associé à un gestionnaire de la fiche qui détruira le bouton. Normalement le code devrait être exécuté après retour du code-bouton.

[evarisnea]

Il faut impérativement détruire le bouton après que tout le code du bouton ait été effectué, ce qui inclut l'évènement OnClick et ce qu'il y a encore après (dans le code source de TButton). Sinon, il y a exécution d'un code sur une instance qui n'existe plus, d'où le plantage.

Solution 0 : pourquoi détruire le bouton, alors qu'il suffit de le rendre invisible en mettant sa propriété visible à false ?

Solution 1 : écrire un gestionnaire Application.OnIdle (voir doc). Dans ce getstionnaire, tester une valeur booléenne, si elle est true, détruire le bouton et mettre la valeur à false. Dans le gestionnaire OnClick, mettre la valeur booléenne à true pour prévenir l'application qu'elle devra détruire le bouton.

Solution 2 : Envoyer un message personnalisé à la fiche (avec PostMessage), associé à un gestionnaire de la fiche qui détruira le bouton. Normalement le code devrait être exécuté après retour du code-bouton.

entièrement d'accord !

sinon avec une form, il y a la méthode Release qui permet de détruire la form par elle même. je me suis donc penché un peu sur les sources (unité Forms) et j'ai constaté que CapJack avait pratiquement deviné comment la VCL l'implémente, il s'agit d'un postmessage vers la form elle même:

Code :

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

1
2
3
4
procedure TCustomForm.Release;
begin
  PostMessage(Handle, CM_RELEASE, 0, 0);
end;

couplée à un gestionnaire pour le message CM_RELEASE:

Code :

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

1
2
3
4
5
6
7
...
    procedure CMRelease(var Message: TMessage); message CM_RELEASE;
...
procedure TCustomForm.CMRelease;
begin
  Free;
end;

et le tour est joué.
alors une autre piste de solution serait de te créer un bouton à toi (héritant de TButton) qui implémenterais cette fameuse méthode Release, exactement comme pour TCustomForm.

[jcs2]

Merci pour vos réponses très claires et bien documentées.
Je vais essayer tout cela.