Dériver un TTabSheet

Bonjour,

Je voulais savoir s'il était possible de dériver un TTabSheet. J'ai besoin de gérer des données complèmentaires pour les onglets d'un pagecontrol, et je pensais dériver un tabsheet comme suit :

Code:

---

1 2 3 4 5 6 7

myTTabSheett = class(TTabsheet) private myTypeID : integer; public procedure SetTypeID(TypeID : integer); function GetTypelID : integer; end;

---

Je peux créer les procedures et fonction.
Par contre quand je veux utiliser le composant dérivé, Delphi dit ne pas connaitre les fonction SetTypeId et getTypeID.

Ai-je oublié quelque chose, ou faut-il créer un composant dériver de TabSheet , Merci

Je suppose que tu fais un truc du genre "PageControl.ActivePage", cela te renvoie un TTabSheet donc il faut le caster "(PageControl.ActivePage as myTTabSheett).SetTypeID

ensuite j'écrirais la classe comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

type TTypeIDTabSheet = class(TTabsheet) // La classe commence par un T comme Types private FTypeID : integer; // F comme Field ... protected procedure SetTypeID(Value: integer); function GetTypeID : integer; public property TypeID: Integer read GetTypeID write SetTypeID; end;

---

Mets les dans published ?

Et puis: par convention, écrit TMyTabsheet (pour indiquer un Type), et FmyTypeID

Bonjour,

A Prioris il ne devrait pas y avoir de problème pour dériver le TTabsheete.

Le fait que vous ayez un TMyTabbsheete parfaitement utilisable n'implique pas que vous 'ayez pas de problèmes.

Il vous faut aussi dériver le TPageControl.

Le TPageControl contient une liste de TTabsheet et non une liste de TMyTabbsheet.

Votre problème provient peut être de cela.

Super ça marche, merci.

Pas utile de dériver le page control, par contre il faut caster le tabsheet pour récupérer les paramètre spécifiques.