Destruction de TTabSheet?Résolu

Question

voila dans mon appli j'ai plusieur TTabsheet (onglet) , j'ai un
&#233;v&#232;nement Oncontexte popup me  permettant de modifier le nom de
l'onglet ou de supprimer cet onglet...



et dans ma m&#233;thode pour supprimer l'onglet ya un bug genre
EAccessViolation  je ne comprend  pas trop car je detruit
correctemment a priori regardez et dites moi ou vous voyez  une
erreur...



with form1.PageControl1.ActivePage do

 begin

//je detruit tout les composant que contient mon onglet
   for i:=ComponentCount-1 downto 0 do 

  begin

   components[i].destroy;

  end;

  i:=form1.PageControl1.ActivePage.PageIndex;

  destroy; //je detruit mon onglet...

 end;

//si je ne suis pas sur le premier onglet je retourne a la page pr&#233;c&#233;dente

 if i<>0 then

 begin

 form1.PageControl1.SelectNextPage(false);

 end;



merci d'avance bonne prog'




Temple0fb00m

florenth · Accepted Answer

Salut, Il faut que tu utilises l'évenement OnContextPopup du TPageControl et non des TTabSheet. Chez moi ça marche avec ton code mais utilise plutot le suivant:

begin i: =PageControl1.ActivePage.PageIndex; { Destruction du TTabSheet: la methode Free est préférable à Destroy. voir l'aide de Delphi. La methode Destroy de tout composant (Free appelle Destroy) détruit tout les composants qu'il possede, donc ce n'est pas la peine de les détruire explicitement. } PageControl1.ActivePage.Free; if i<>0 then PageControl1.SelectNextPage(false); // Retour page précédente end;

@ ++ Florent Si tu ne te plantes pas ...... tu ne poussera jamais

templeofboom · Answer

merci  florent ca marche nickel t un chef...
Temple0fb00m

Destruction de TTabSheet?

2 réponses

Votre réponse

Discussions similaires