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;