Discussion :

[Andry]

Salut à tous.
J'ai une fiche principale avec une pagecontrol . Mes autres fiches s'affiche dans les tabsheet du pagecontrol comme ceci

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 : TTabSheet;
begin
  tab :=  frmMain.GetMDITab('tabDocList');
  if tab = nil then
  begin
    Tab := TTabSheet.Create(Self);
    with Tab do
    begin
      Name        := 'tabDocList';
      Caption     := '';
      PageControl := frmMain.pageList;
      TabVisible  := True;
      Caption     := 'Liste des documents';
    end;
    if Not Assigned(DocList) then
    begin
      DocList := TfrmDocList.Create(Tab);
      With DocList do
      begin
        Parent      := Tab;
        Align       := alClient;
        Show;
      end
    end;
  end;

J'ai aussi un bouton calé sur la partie supérieur du pagecontrole qui me sert à supprimer le tabsheet courant par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    pageList.ActivePage.Free;

La première fois que j'affiche la fiche dans un onglet, ça marche bien.
Dès que ferme le tabsheet via le bouton, et que je re affiche de nouveau, le Assigned(DocList) n'est pas valable et j'ai une erreur dès le show.
Comment faire ?

Merci

[Andnotor]

Pas d'autre possibilité que d'ajouter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
pageList.ActivePage.Free;
DocList := nil;

Mais comme tu as fait (et si DocList est utilisé ailleurs), tu pourras créer plusieurs TabSheet, mais seul le premier aura une page affichée...

Tu devrais te passer de cette variable et accéder directement à la fiche par un TfrmDocList(PageControl1.ActivePage.Controls[0]).

[Andry]

Effectivement l'onglet contenant doclist ne doit se créer qu'une et une seule fois, elle affiche la liste des documents actifs.
Je tente de simuler une appliquation MDI en utilisant une pagecontrole.
Par contre je fais comme ceci pour l'affichage des mes autres fiches filles :

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
27
28
29
 
procedure TDmData.AfficherDetailDoc(aDocNumber : Integer);
var
  tab : TTabSheet;
begin
  tab :=  frmMain.GetMDITab(aDoCNumber);
  if tab = nil then
  begin
    Tab := TTabSheet.Create(Self);
    with Tab do
    begin
      Name        := Format('tabDocEdit%d',[aDocNumber]);
      Caption     := '';
      PageControl := frmMain.pageList;
      TabVisible  := True;
      Caption     := Format('Recette %d',[aDocNumber]);
      Tag         := aDocNumber;
    end;
    begin
      With TfrmDocEdit.Create(Tab) do
      begin
        Parent      := Tab;
        NumDoc  := aDocNumber;
        Show;
      end
    end;
  end;
  frmMain.pageList.ActivePage := tab;
  frmMain.hdrInfo.Sections[1].Text  := Format('Document  %d',[aDocNumber]);

Ici les 2 fonctions overloadés de GetMDITab

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
27
28
29
30
 
function TfrmMain.GetMDITab(aTabName: String): TTabSheet;
var
  i   : Integer;
begin
  Result := Nil;
  If pageList.PageCount > 0 then
  begin
    for i:= 0 to pageList.PageCount -1 do
    begin
      if pageList.Pages[i].Name = aTabName then
        Result := pageList.Pages[i];
    end
  end;
end;
 
function TfrmMain.GetMDITab(aTabTag: Integer): TTabSheet;
var
  i   : Integer;
begin
  Result := Nil;
  If pageList.PageCount > 0 then
  begin
    for i:= 0 to pageList.PageCount -1 do
    begin
      if pageList.Pages[i].Tag = aTabTag then
        Result := pageList.Pages[i];
    end
  end;
end;

Le souci est que le Free de la tabsheet provoque la destruction de la fiche de type TfrmDocEdit. Or dans la procedure AfficherDetailDoc effectue une instanciation dynamique sans utiliser une variable. Quand est il du pointeur sur TfrmDocEdit vu qu'il faut soit même le mettre à nil à la destruction. Est ce qu'il n'y aurait pas une fuite de mémoire.

[Andnotor]

TfrmDocEdit n'est pas une variable, mais une classe. Tu n'as pas à t'en occuper.

Et même dans ton premier post, la variable DocList sera toujours là. Qu'elle pointe sur une adresse valide ou non (nil).

[Andry]

Mais le With TFrmDocEdit.Create(Owner) ne crée t-il pas un variable de type TFrmDocEdit ?

[Andnotor]

Oui et non

Non, il alloue seulement les ressources nécessaires en mémoire. Tu n'est pas obligé d'avoir une variable pointant dessus.

Oui, puisque tu lui assignes un propriétaire. Il apparaitra dans sa propriété Controls. Et c'est pour cela que tu n'as pas besoin de t'occuper de sa destruction.

Je sais pas si je me fais bien comprendre .

[Andry]

Chef oui chef

Merci Andnotor