Discussion :

[akabane]

Bonjour,

Est-il possible qu'un composant se supprime lui même ?
En fait je voudrais que lorsque l'on clique sur un bouton, celui-ci se détruise par l'intermédiaire son événement onClick.

En gros je voudrais faire ceci :

Code :

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

1
2
3
4
5
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Sender.Free;
end;

Mais cela ne fonctionne pas.

Est-ce possible ? Si oui comment ?

[pitango]

Bonjour

En utilisant le destroy de l'objet, cela devrait fonctionner

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  Sender.Destroy;
end;

A+

[cadetill]

Bonjour

Et si tu le mets visible a false?

[akabane]

Destroy, tout comme Free ne fonctionne pas.

L'utilisation de la proprièté Visible fonctionne mais ne fait que cacher le button et non pas le détruire.

En fait je génére dynamiquement un formulaire avec des lignes de type :
<TEdit> <TEdit> <TEdit> <TButton>
Et l'appui sur le button doit supprimer les TEdit et le button lui même.

[pitango]

J'ai essayé le destroy et de mon coté cela fonctionne pour le bouton, j'utilise Delphi 7 (sp1)

A+

[TicTacToe]

C'est vrai que tant qu'on peut se passer de détruire physiquement les composants, il faut le faire, le Visible False est préférable.
Mais des fois c'est vraiment ce qu'on veut faire, et le cas à déjà été évoqué.

Mettre un destroy (ou un free) dans son propre evt, c'est pas propre, pour peut que ca marche et ca m'etonne meme que ca marche m'enfin j'ai pas essayé

Sinon, une alternative, c'est de détruire le compo. hors de ses propres évt. par le biais d'un timer:

en init:

Code :

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

Timer.Enabled := False;

sur l'evt du bouton:

Code :

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

Timer.Enabled := True;

dans l'evt du timer:

Code :

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

1
2
3
Timer.Enabled := False;
Application.ProcessMessages;
CompoBouton.Free;

[sjrd]

A vrai dire, c'est très mal de détruire l'objet dans son gestionnaire. En effet, ce gestionnaire est appelé par du code de ce bouton, donc au retour, le bouton n'existe plus et... Pouf ! Ca plante

Il faut envoyer un PostMessage à la fiche qui devra se charger de détruire le bouton.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.ButtonClick(Sender: TObject);
begin
  // suppression des edits
  PostMessage(Self.Handle, CM_DESTROYBUTTON, LongInt(Sender), 0);
end;

procedure TForm1.CMDestroyButton(var Msg : TMessage);
begin
  TObject(Msg.LParam).Free;
end;

[TicTacToe]

exact bcp mieux

sjrd, dit moi si je me trompe, car je suis loin d'être spécialiste dans les messages.

dans l'évt bouton, on lance un message qui vient s'empiler dans la liste des msg Appli
-> ce message ne peut être traité QUE lorsque le code de l'evt bouton est terminé (provoqué lui aussi par un message dans la file d'attente,... mais avant)

et ceci, grace au PostMessage qui passe à la suite sans attente,
J'imagine qu'un SendMessage, tournerait en boucle...
-> je lance un message, j'attend son retour
-> ce message ne peut être exécuté et terminé que si l'evt est terminé, donc impossible...

[akabane]

J'ai choisi la méthode du PostMessage qui fonctionne très bien (j'ai quand même du changer le LParam en RParam après quelques recherches).

Code :

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

1
2
3
4
 
const CM_DESTROYBUTTON = WM_USER + 0;
 
procedure CMDestroyButton(var Msg : TMessage); message CM_DESTROYBUTTON;

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(Self.Handle, CM_DESTROYBUTTON, LongInt(Sender), 0);
end;
 
procedure TForm1.CMDestroyButton(var Msg : TMessage);
begin
  TObject(Msg.WParam).Free;
end;

Merci à tous pour vos conseils !

[sjrd]

@TicTacToe : oui c'est exactement ça.
@akabane : en effet je confonds toujours l'un et l'autre ; bonne adaptation