Détruire une Frame a partir d'un de ses boutons [FAQ]

**rvzip64** · 03/04/2006, 18h40

Tout est dans le titre du sujet.
J'ai une frame qui a un bouton et je voudrais que quand je clique dessus la frame se détruise (Free).

Je sais bien que ce n'est pas trés catholique, mais si il y avait une petite astuce pour faire cela....

Cordialement.

**slimjoe** · 03/04/2006, 19h08

Envoyé par rvzip64

Tout est dans le titre du sujet.
J'ai une frame qui a un bouton et je voudrais que quand je clique dessus la frame se détruise (Free).

Je sais bien que ce n'est pas trés catholique, mais si il y avait une petite astuce pour faire cela....

Cordialement.

Salut!

Un objet ne peut pas se détruire lui même. Si un bouton qui est membre d'une class tente de détruite l'objet duquel il fait partie tu vas avoir droit à des beaux Access Violation

(puisque la procédure OnClick du bouton va tenter de se terminer APRÈS que l'objet ait été détruit et comme l'objet est détruit, l'espace mémoire de OnClick n'est plus disponible pour ton application).

Lorsque que j'ai eu à faire quelque chose de semblable, j'ai utilisé un objet TObjetList que j'ai construit dans le parent de mon objet (dans ton cas, ça serait ta fiche qui contient le frame) en m'assurant que la propriété OwnsObjects de TObjectList soit à True.

Ensuite, place dans l'ObjectList l'instance de ton frame (monObjectList.Add(monFrame)). Sur le click du bouton, au lieu de mettre monFrame.Free, mets monFrame.Visible := false.

Enfin, à la destructiion de ta fiche, n'oublie pas de détruite ton ObjectList qui va alors détruire TOUS les frame qu'il va contenir.

Je ne dis pas que c'est une solution miracle (ni qu'elle est optimisée pour tes besoins précis), mais elle fonctionne.

Bon dev!

-Slimjoe

**TicTacToe** · 03/04/2006, 19h26

c'est vrai c'est jamais joli les solutions pour faire ca

une solution assez utilisée est:

tu peux mettre un timer dans ton composant propriétaire dédié à cela
qui est désactivé par défaut
lorsque tu cliques sur le bouton, tu actives le timer (il faut qu'il soit accessible de puis la frame)
puis dans le timer, tu détruits la frame et tu le désactives lui meme...

un petit processmessage sur la frame avant de la fermer ne fait pas de mal aussi.

mais si tu as une autre solution pour détruire ta frame du dehors de manière plus catholique, ce sera une meilleure solution

bon courage !

**Laurent Dardenne** · 03/04/2006, 20h01

La méthode Release n'est-elle pas indiquée dans ce cas ?

**slimjoe** · 03/04/2006, 21h03

Envoyé par Laurent Dardenne

La méthode Release n'est-elle pas indiquée dans ce cas ?

Je ne crois pas qu'il y ait de Release sur un TFrame

Mais un Release sur la fiche qui possède le frame par exemple pourrait probablement fonctionner....

**Laurent Dardenne** · 03/04/2006, 21h27

Envoyé par slimjoe

Je ne crois pas qu'il y ait de Release sur un TFrame

Tu as raison j'ai dit une ânerie !

**Picoti** · 04/04/2006, 00h24

Moi j'emploie une méthode qui consiste à Poster un message à la fiche principale avec le Handle de la Frame en parametre.

**rvzip64** · 06/04/2006, 14h23

C'est a dire picoti ???
tu aurais un exmple a me donner s'il te plait ?

**Picoti** · 06/04/2006, 14h40

Dans l'evenement OnClick de la frame :

Code :

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

1
2
 
PostMessage((Owner as TForm).Handle, WM_CLOSE_FRAME, 0, 0);

Dans la fiche principale :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
// ----------------- interface ------------------
procedure WMCloseFrame(var msg: TMessage); message WM_CLOSE_FRAME;
...
public
  ma_frame : TFrame;
 
// -------------- implementation---------------
ma_frame := TFrame.Create(self)
...
procedure TForm1.WMCloseFrame(var msg: TMessage);
begin
  FreeAndNil(ma_frame);
end;

**DidiLogic** · 06/04/2006, 16h28

Salut,

Il y a un tutoriel sur la gestion d'un systeme de fenetrage à base de frames sur Borland Code Central :
Dynamic windowing system using frames (ENG & FR)
http://cc.borland.com/Item.aspx?id=18798

Ou sur mon site :
http://www.xtralog.com/docs/delphi_frames.zip

Didier

**rvzip64** · 09/04/2006, 13h17

Merci tout le monde , je vais regarder ça et je vous tiens au courant.

**rvzip64** · 11/04/2006, 17h53

Bon je regardé les exemplse, cela semble convenir a mon probleme

Par contre , j ai un petit probleme qui se pose sur la procédure pour fermer le cadre :

Code :

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

1
2
3
4
5
 
procedure TFPrincipal.WMFermerCadre(var msg : TMessage);
begin
	FreeAndNil(select_frame);
end;

En effet , la l'exemple est simple, on affiche une seule frame a la fois,
or , moi j en ai une bonne quantité.

Ne serait il pas possible de renvoyer a travers le message le frame a détruire ?

**DidiLogic** · 11/04/2006, 18h45

Envoyé par rvzip64

Bon je regardé les exemplse, cela semble convenir a mon probleme

Par contre , j ai un petit probleme qui se pose sur la procédure pour fermer le cadre :

Code :

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

1
2
3
4
5
 
procedure TFPrincipal.WMFermerCadre(var msg : TMessage);
begin
	FreeAndNil(select_frame);
end;

En effet , la l'exemple est simple, on affiche une seule frame a la fois,
or , moi j en ai une bonne quantité.

Rien n'empêche de créer un tableau ou une liste de frames.

Envoyé par rvzip64

Ne serait il pas possible de renvoyer a travers le message le frame a détruire ?

Rajoutes le Handle de la frame dans le parametre du message comme ça tu pourra le comparer aux frames existants.

**rvzip64** · 11/04/2006, 20h05

Oui c'est une solution.
Et a partir du Handle ce n est pas possible de détruire la frame, sans la comparait a celle stocké dans un tableau ?

**rvzip64** · 11/04/2006, 21h39

Bon ta suggestion de tableau ma donnée une idée,j'ai pondu ça .
Je suis pas sur que ça soit le mieux qui existe , mais c'est autonaume.

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
 
procedure TFPrincipal.WMFermerCadre(var msg : TMessage);
var
  loop:integer;
Begin
  for loop:=0 To Componentcount-1 do
  begin
    if Components[loop] is Twincontrol then
    begin
      if Twincontrol(Components[loop]).Handle=msg.WParam then
      begin
        Components[loop].Free;
      end;
    end;
  end;
end;

**DidiLogic** · 11/04/2006, 23h32

Envoyé par rvzip64

Bon ta suggestion de tableau ma donnée une idée,j'ai pondu ça .

Tout à fait, j'allais te suggérer de passer par Components[]
:-)

Bonne continuation avec les frames !

Didier

**rvzip64** · 12/04/2006, 09h36

C'est parfait merci a tous.

Je suis preneur quand meme si vous avez une idée pour simplifier la procédure de destruction.

**DidiLogic** · 10/08/2018, 13h31

Envoyé par DidiLogic

Salut,
Il y a un tutoriel sur la gestion d'un systeme de fenetrage à base de frames sur Borland Code Central :
Dynamic windowing system using frames (ENG & FR)

Actualisation du lien :
http://codecentral.embarcadero.com/Item/18798

**Papy214** · 10/08/2018, 14h15

J'ai codé un truc dans ce genre mais valable seulement si la frame est enfant de la fenêtre principale.
Il suffit de faire un Close de l'application et le OnCloseQuery de la MainForm gère en vérifiant si la frame existe.
Si oui, la frame est supprimée.
Simple et pas cher. Et sans doute adaptable à des cas un peu plus compliqués

Détruire une Frame a partir d'un de ses boutons [FAQ]

Composants VCL Delphi

Discussions similaires

Partager

Partager