Discussion :

[gazier20]

Bonjour,
mon problème est : Comment faire pour détruire un bouton lorsque que l'on clique sur ce meme bouton(bitbtn)? (en delphi)

J'ai essayé:
BitBtn.free;
BitBtn := nil;

Mais cela ne marche pas pour le bouton lui-meme

J'espère que vous pourrez m'aider

Merci et à bientot

[LadyWasky]

1) Le clic de ton bouton active un TTimer,
2) Dans L'évènement OnTimer, tu détruis le bouton

[gazier20]

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
//*********creation bouton OK 2*************
procedure TParametre.CreerBoutonOK2(Sender: TObject);
begin
 BitBtnOK2 := TBitBtn.Create(GroupBoxNbpage);
 BitBtnOK2.Parent := GroupBoxNbpage;
 BitBtnOK2.SetBounds(150,100,50,25);
 BitBtnOK2.Caption := 'OK';
 BitBtnOK2.OnClick := BoutonOK2Click;
end;
 
 
//***************detruire bouton OK 2************************
procedure TParametre.DetruireBoutonOK2(Sender: TObject);
begin
 BitBtnOK2.free;
 BitBtnOK2 := nil;
end;

Voici mes deux procédures que j'utilise dans mon programme( je ne veux pas utiliser le rad de delphi). Donc je pense qu'il faut apporter une modification à la procédure detruire pour que je puisse appliquer cette procedure à l'évenement bitbtnOK2.onclick pour détruire ce bouton.

Je n'utilise pas de TTimer

[bjl]

Bonjour,

si c'est vraiment un copier coller de ton code, la procédure assignée au click du bouton 2 n'est pas "DetruireBoutonOK2(Sender: TObject);" mais
"BoutonOK2Click;"

[LadyWasky]

Un objet, TApplication et TForm mis à part (avec Terminate et Release) ne peut pas appeler son destructeur directement ou indirectement depuis ses propres méthodes.

L'utilisation du timer est la seule solution que je connaisse pour sortir du code du composant

[Nono40]

( je ne veux pas utiliser le rad de delphi).

Pourquoi ?

[EssaiEncore]

Pourquoi le detruire ???, ne peux tu pas seulement le cacher ???

[gazier20]

merci beaucoup

J'ai résolu mon problème grâce au ttimer

[Stef_34]

Bonjour,

Je trouve la solution du timer pas tres propre. J'ai eu ce probleme a un moment ou j'avais un nombre variable de boutons et cliquer sur un devait le faire disparaitre.
Pour cela j'utilise un pool de boutons (Tobjectlist) et suivant le nombre de boutons a afficher je ne fais que masquer (visible:=false) les boutons qui sont en trop.

Si il manque des boutons j'en ajoute dans l'objectList.

comme cela il n'y a pas de fuite mémoire et pas de probleme de timer qui implique un délai entre le click et l'action.

[LadyWasky]

Bonjour,

Je trouve la solution du timer pas tres propre. J'ai eu ce probleme a un moment ou j'avais un nombre variable de boutons et cliquer sur un devait le faire disparaitre.
Pour cela j'utilise un pool de boutons (Tobjectlist) et suivant le nombre de boutons a afficher je ne fais que masquer (visible:=false) les boutons qui sont en trop.

Si il manque des boutons j'en ajoute dans l'objectList.

La tienne ne l'est guère plus : la mémoire necessaire pour que ton appli fonctionne ne fait que croitre... jusqu'au Out of Memory

comme cela il n'y a pas de fuite mémoire

Où ça, une fuite de mémoire ?

et pas de probleme de timer qui implique un délai entre le click et l'action.

Même sans timer, il y a toujours un délais entre ton clic et l'action, il faut bien que windows déroule ses messages. Alors si tu met ton TTimer pour qu'il se déclenche au bout d'1 milliseconde (voire 10), bof... c'est pas très long à attendre.

[anapurna]

salut

utiliser la solution des messages
je vai peut etre en dire un peu plus

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
const 
  WM_DESTROYBTN = WM_USER+1111;
 TMyForm = Class(TForm) 
...
 procedure WMDESTROYBTN (var Message: TMessage); message WM_DESTROYBTN;
 procedure Doclick(sender: Tobject);
end;
 
...
Consrtuctor  TMyForm.FormCreate(sender : Tobject);
begin
  btn.OnClick := Doclick;
end;
Procedure TMyForm.Doclick(sender: Tobject);
begin
  PostMessage (handle,WMDESTROYBTN,0,0);
end; 
...
procedure TMyForm.WMDESTROYBTN (var Message: TMessage);
begin
  btn.free;
end;

Tu peut ameliorer le procede en passant en parametre le bouton a detruir

@+ Phil

[TicTacToe]

j'arrive un peu tard,

mais + 1 pour les messages, c'est plus propre
mais on pinaille

mais anapurna, ne peut-il pas y avoir colision là aussi,

cad, que le message soit appelé alors que l'evenement onclick n'est pas terminé ??

[anapurna]

salut

Normalement non

en fait il se met dans une queue, ce qui en theorie
veut dire que le message ce met en fin de liste.
tout les evenements devraient etre traiter avant celui-ci
pour bien faire il faudrait mettre le composant enable a false
et meme peut etre visible avant de lancer le message de destruction
pour eviter des messages parasite

@+ Phil

[edam]

Bonjour,

Je trouve la solution du timer pas tres propre. J'ai eu ce probleme a un moment ou j'avais un nombre variable de boutons et cliquer sur un devait le faire disparaitre.
Pour cela j'utilise un pool de boutons (Tobjectlist) et suivant le nombre de boutons a afficher je ne fais que masquer (visible:=false) les boutons qui sont en trop.

Si il manque des boutons j'en ajoute dans l'objectList.

comme cela il n'y a pas de fuite mémoire et pas de probleme de timer qui implique un délai entre le click et l'action.

: : :
pourqoi pas utlisé TListAction , et quand tu click sur un bouton tu changé simplement son action, comme sa tu peut utlisé le meme bouton pour des dizéne d'action,