Composant TPageControl avec TTabSheetRésolu

Question

Bonjour,

Je cherche le moyen de supprimer une page (TTabSheet) d'un composant TPageControl. On peut le faire
en mode conception mais aucune méthode pour pouvoir le faire en mode exécution. 

Quand l'utilisateur termine une procédure dans mon programme, je souhaiterais supprimer l'onglet concerné, hors je n'ai trouvé que TabVisible := false. L'onglet est bien caché mais quand l'utilisateur en crée un nouveau, celui qui était caché réapparait.

Donc, je préférais le supprimer quitte à repositionner tous les index après.

Si vous avez une idée, merci d'avance

Cordialement

Phephelavi

phephelavi · Accepted Answer

A merci ! 

Je l'avais oublie ce FREE ! Naturellement pour supprimer un objet.
Ca marche !

Bon week end

ThWilliam · Answer

Salut,

Supprimer un TabSheet :  tout simplement avec Free.

Exemple : suppression de l'onglet 1 :

procedure TForm1.Button1Click(Sender: TObject);
begin
   with PageControl1 do
     Pages[1].Free;
end;

A +
Thierry

Composant TPageControl avec TTabSheet

2 réponses

Votre réponse

Discussions similaires