Discussion :

[richard038]

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 :

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

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

[ShaiLeTroll]

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 :

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

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;

[qi130]

Mets les dans published ?

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

[Tardiff Jean-François]

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.

[richard038]

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.