Discussion :

[bossattac]

Bonjour,
Je voudrais passer une application en MTI (multi onglet).
Pour cela j'utilise le composant TPageControl et TTabSheet.
Voici le 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
27
procedure TAccueil.SmenuVehiculeClick(Sender: TObject);
var
  Tab: TTabSheet;
begin
    //Creation du TabSheet.
    Tab := TTabSheet.Create(Self);
    Tab.PageControl := pageArea;
 
    //Creation de la fiche à afficher
    vTFlisteVeh := TFlisteVeh.Create(Tab);  // j'affiche le TForm dans le conteneur TabSheet
    With vTFlisteVeh do
    begin
      OnClose     := DoOnCloseTFlisteVeh;  // afin de capter la fermeture du TForm
      Parent      := Tab;
      Align       := alClient;
      BorderStyle := bsNone;
      Show;
    end;
    //Affichage de l'onglet fraichement crée
    pageArea.ActivePage :=  Tab;
end;
 
Voici le code qui me permet de capter l’événement de fermeture:
procedure TAccueil.DoOnCloseTFlisteVeh;
begin
    PageArea.ActivePage.Free; // libération du TabSheet 
end;

Lors de la libération du TabSheet cela me déclenche l'erreur: Le contrôle n'a pas de fenêtre parente.
Je pensais que la libération du TabSheet libéré aussi le TForm mais en fait il doit y avoir quelque chose qui m'échappe.
Merci pour votre aide ...

[Ph. B.]

Bonjour,

Vous n'avez pas affecté le Parent de l'objet TTabSheet que vous avez créé, seulement son propriétaire (Owner).
Rajoutez Tab.Parent := Self; après la création...
A la place de Self, je mettrais plutôt le TPageControl qui encapsule le TTabSheet, que ce soit pour la création comme l'affectation du parent :

Code :

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

1
2
3
4
//Creation du TabSheet.
Tab := TTabSheet.Create(pageArea);
Tab.Parent := pageArea;
Tab.PageControl := pageArea; // pas sur du coup que cela reste nécessaire, à tester sans...