Discussion :

[Génie]

Bonjour à tous

Je voudrais savoir s'il est possible de définir une variable d'une classe ancêtre sans pour autant créer d'instance.

je m'explique

J'ai une fiche Ancêtre

Code :

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

1
2
3
4
5
6
7
8
 
TAncetre = class(TForm)
  Pnl_Titre: TPanel;
private
    { Déclarations privées }
public
    { Déclarations publiques }
end;

et j'ai 2 autres fiches

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
 
TFils1 = class(TAncetre)
    Lbl_Forfait: TLabel;
private
    { Déclarations privées }
public
    { Déclarations publiques }
end;
 
TFils2 = class(TAncetre)
     Lbl_Duree: TLabel;
private
    { Déclarations privées }
public
    { Déclarations publiques }
end;

dans mon application

Code :

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

1
2
3
4
5
6
7
8
9
 
begin
Application.Initialize;
 
Application.CreateForm(TFils1, Fils1);
Application.CreateForm(TFils2, Fils2);
 
Application.Run;
end;

et je voudrai définir Pnl_Titre.caption
de la classe ancêtre
pour que,
lorsque je crée un fils (Pnl_Titre.caption soit déjà défini)

Cela m'éviterai de créer l'ancêtre, définir la valeur de (Pnl_Titre.caption)
puis créer les fils

Merci

[ushu]

Comment est-ce que tu veux définir

Pnl_Titre.caption

?

A quel moment ?

Est-ce que tu veux qu'il soit différent en fonction de la classe fille ?

G besoin de + de détails !

[Pierre Castelain]

Pour moi, il y a deux solutions.
La première est de modifier le caption de ton TPanel au design, mais j'imagine que ce n'est pas ce que tu cherche.
La deuxième est de surcharger le constructeur Create (ou toute autre méthode qui te convient) de TAncetre pour faire la modif. Dans la mesure où le constructeur de la fenêtre ancêtre est utilisé par les fenêtres filles, ton code sera utilisé par celles-ci.

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
TAncetre = class(TForm) 
  Pnl_Titre: TPanel; 
private 
    { Déclarations privées } 
public 
    { Déclarations publiques }
    constructor Create(AOwner: TComponent); override; 
end; 
 
implementation
 
constructor TAncetre.Create(AOwner: TComponent);
begin
  inherited;
  Pnl_Titre.Caption:= 'Hello';
end;

[Génie]

Merci beaucoup Pierre Castelain

je crois que ta solution correspond parfaitement
à ce que je cherchais.
Je vais là mettre en fonction des maintenant!

A+