Bonjour,
Je suis en train de changer une application style MDI en une application de style onglet. J'ai trouvé un bout de 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
16
17
18
19
20
21
22
23
24
25
26
 
var Tab : TcxTabSheet;
begin
  //Recherche de Tabsheet comme non tabArticle
  Tab := TcxTabsheet(FindComponent('tabArticle'));
  if (Tab = nil) then // Si pas trouver alors création du tabsheet.
  begin
    Tab := TcxTabSheet.Create(Self);
    with Tab do
    begin
      Name        := 'tabArticle';
      PageControl := mainPage;
      Caption     := 'Liste des Articles';
      TabVisible  := True;
    end;
    // et création de la fiche à afficher dans le Tabsheet
    with TfrmArticle.Create(Tab) do
    begin
      Name        := 'frmArticle';
      Parent      := Tab;
      Align       := alClient;
      BorderStyle := bsNone;
      Show;
    end;
  end;
  mainPage.ActivePage :=  Tab;
La question est : est ce que ce code est optimisé (mémoire et rapidité) ou est ce qu'il existe une autre façon d'y parvenir.

Merci