Comment fermer l'onglet parent (actif) Résolu

Question

Bon jour ...

J'ai fait une application au j'ai utilisé TabbedNotebook1 pour crée
plusieurs l'onglets dans chaque l'onglet il y a un Trichedit mais j'ai
pas compris comment faire pour fermer l'onglet actif j'ai fait cette
procédure mais je ne sais pas la methode pour fermer l'onglet parant (active)
 alors a se que vous pouvez me dire comment?.
Merci d'avance
<hr size="2" width="100%" />

procedure TForm1.Fermer2Click(Sender: TObject);
var i:integer;
TabPage: TTabPage;
begin
with TabbedNotebook1 do
  begin
    { Recherche de l'onglet actif}
    TabPage := TTabPage(Pages.Objects[PageIndex]);

    for i := 0 to TabPage.ControlCount - 1 do
      if (TabPage.Controls[i] is Trichedit) then TabPage.//Ajouter la methode ici
end;
end;

JulioDelphi · Accepted Answer

Utilise Notebook1.Pages.Delete(i);
Ne peux tu pas simplement utiliser :
Notebook1.Pages.Delete(Notebook1.PageIndex); qui fermera l'onglet actif (actuellement visible) sans avoir besoin de faire un loop pour le trouver ?

cheragasalhi · Answer

Bon jour 
Exactement Merci JulioDelphi

Comment fermer l'onglet parent (actif)

2 réponses

Votre réponse

Discussions similaires