Salut mes amis 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 alors a se que vous pouvez me dire comment?.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
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 method ;
end;
end;
Merci de votre aide