Discussion :

[Andry]

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

[Aka Guymelef]

Bonjour,

Faire un FindComponent de la fiche me semble un peu too much alors que tu disposes du PageControl qui propose que les TabSheet directement.

Pourquoi ne pas faire la recherche à partir du PageControl ?

[Andry]

Bonjour,

Faire un FindComponent de la fiche me semble un peu too much alors que tu disposes du PageControl qui propose que les TabSheet directement.

Pourquoi ne pas faire la recherche à partir du PageControl ?

Pourquoi pas. Juste parcourir les TabSheet et tester.
Bon, je vais m'y atteler.

[Kaféine]

Salut,

En plus du FindComponent qui peut être remplacer par un for I := 0 to PageControle.PageCount, je sais pas combien de pages tu as mais s'il faut que tu tape tout ca à pour chaque page...Une optimisation possible serait de rendre ce code générique en s'appuyant sur les forms car les tabs sont secondaires ici.

[e-ric]

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

Sur un code de ce type (purement linéaire), la question de l'optimisation se pose rarement. L'optimisation devient pertinente ou même nécessaire sur du code critique susceptible d'être utilisé directement ou indirectement dans une boucle. Je ne pense que cela soit le cas ici.

NB : L'emploi de With est en soi une optimisation.

Cdlt