Discussion :

[monstroplante]

Bonjour,

Je crée des boutton dynamiquement mais je veux qu'on puisse les supprimer en fesant un click droit dessus.

J'ai donc ecris ce code :

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
procedure TForm1.Button1Click(Sender: TObject);
begin
with TJvNavPanelButton.Create(Self) do
    begin
      Parent := Panel1;
      Align := alTop;
      oncontextpopup:=JvNavPanelButton1ContextPopup;
    end;
end;
 
procedure TForm1.JvNavPanelButton1ContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
begin
sender.Free;
end;

Quand je supprime un boutton (click droit) j'obtiens un "EAccessViolation".
Ce bug n'est pas systematique, par moments ca fonctionne.
Si je crée un boutton de facon fixe (avant l'execution pas en dynamique), je n'ai aucun probleme...

[monstroplante]

UP

[TicTacToe]

Je ne suis pas sur que ton 'Sender' soit le TJvNavPanelButton précédemment créé.
DEJA

ENSUITE
Ca plante surement car, tu tentes de libérer un object, dans lequel une méthode lui appartenant est en cours d'exécution...

[monstroplante]

Je ne suis pas sur que ton 'Sender' soit le TJvNavPanelButton précédemment créé.

Si j'ecris ce code dans la procedure associé au "oncontextpopup" :

Code :

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

showmessage(TJvNavPanelButton(sender).caption);

J'obtiens bien le caption de mon boutton.

Ca plante surement car, tu tentes de libérer un object, dans lequel une méthode lui appartenant est en cours d'exécution...

Le probleme ne se présente pas si j'associe la meme procedure à un boutton crée avant l'execution.

à préciser :
-Le probleme est le meme avec des Tbutton
-Le code "TJvNavPanelButton(sender).Free;" produit éxactement le meme effet.

[tourlourou]

Code :

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

1
2
3
4
5
6
7
procedure TForm1.JvNavPanelButton1ContextPopup(Sender: TObject; 
  MousePos: TPoint; var Handled: Boolean); 
begin 
// essaye de rajouter :
Handled := True;
sender.Free; 
end

;

[monstroplante]

Ca marche !!

Merci bcp.

Tu as une explication livrée avec la solution ?

[tourlourou]

le paramètre Handled passé en var indique si la routine de traitement a traité le message (True).
sinon, le système essaye de passer le traitement au gestionnaire suivant, qui ne trouve plus de sender (il a été libéré) => EAccessViolation

[monstroplante]

merci