Remonter Site Kermith Page d'accueil Les nouveautés du site kermith

Astuce n°2
Astuce n°1 Astuce n°2

Nous commencerons par une brève description du composant :

Le composant TPageControl

Tpage.gif (3109 octets)Ce composant est un composant spécial pour Windows 95. Il permet d'afficher des pages avec des onglets. Ce qui permet de mettre un maximum d'informations dans une boîte de dialogue par exemple. Il suffit de cliquer sur les onglets pour afficher la page désirée.

 

Création de pages supplémentaires en mode exécution de l'application.

L'aide de Delphi est assez avare de renseignement sur ce sujet. J'ai donc cherché le moyen de créer des pages supplémentaires pendant l'exécution des applications.
L'exemple que je vous propose ci-dessous est simple. J'avais besoin d'avoir autant de pages que de sous-répertoires créés dans le chemin de l'application.

Création du composant

Dans la fiche du projet, nous installerons le composant TPageControl. Nous l'appellerons PageRep.

Création des pages

Les pages sont des composant TTabSheet. Nous allons tout d'abord déclarer un identifiant à cet objet dans la déclaration Public de la fiche.

public
  { Déclarations publiques }
  PageRep:TTabSheet;

Maintenant il faut créer une page à chaque nouveau sous-répertoire. Dans la routine prévue à cet effet (non documenté dans cet article), il faudra insérer ce code

//création des pages avec onglets
//la méthode Create alloue la mémoire nécessaire à la création du composant
PageRep:=TTabSheet.Create(Form1);
//On indique au controle PageRep que la page nouvellement créé lui est associé
PageRep.PageControl:=PageRep;
//On initialise l'onglet de la page, on commence par l'indice 0
PageRep.Pages[0].Caption:='Nouvelle page';        

Dernière modification : 16 février 1998

 

[ Remonter ]

 Pour toute question ou remarque concernant ce site Web, envoyez un email à Kermith@Club-Internet.fr
  Copyright © 1998
  Dernière modification : 16 février 1998