Discussion :

[JustMe]

Bonjour ;
Je tente de créer un simple composant sous Delphi 2009 mais je n'arrive pas a attribuer une valeur par défaut pour quelque propriétés :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  private
    FRefFieldIndex: integer;
    FDesFieldIndex: integer;
    FWildCardRef: Char;
    FWildCardDes: Char;
........
  published
    property RefFieldIndex: Integer read FRefFieldIndex
      write FRefFieldIndex default 0;
    property DesFieldIndex: Integer read FDesFieldIndex
      write FDesFieldIndex default 1;
    property WildCardRef: Char read FWildCardRef write FWildCardRef default #42;
    property WildCardDes: Char read FWildCardDes write FWildCardDes default #47;
.......

Après installation du composant les valeurs des propriétés ne sont pas initialisées proprement. (Indiqué en attachement)
Merci de votre aide

[Andnotor]

Les valeurs par défaut doivent être initialisées dans le constructeur.

property ... default ... ne concerne que l'écriture dans le dfm.

[Dr.Who]

tout à fait :

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
 
type
  TMyCompo = class(TComponent)
  private
    fRefFieldIndex: integer;
    fDesFieldIndex: integer;
    fWildCardRef: Char;
    fWildCardDes: Char;
  published
    property RefFieldIndex: Integer read FRefFieldIndex write FRefFieldIndex default 0;
    property DesFieldIndex: Integer read FDesFieldIndex write FDesFieldIndex default 1;
    property WildCardRef: Char read FWildCardRef write FWildCardRef default #42;
    property WildCardDes: Char read FWildCardDes write FWildCardDes default #47;
  public
    constructor Create(AOwner: TComponent);
  end;
 
 
constructor TMyCompo.Create(AOwner: TComponent);
begin
  inherited;
 
  fRefFieldIndex := 0;
  fDesFieldIndex := 1;
  fWildCardRef := #42;
  fWildCardDes := #47; 
end;

DEFAULT n'assigne rien à une propriété. il sert uniquement à l'inspecteur d'objet pour savoir si la valeur en cours d'une propriété est à sa valeur par default ou non (auquel cas il l'affiche en gras dans l'inspecteur d'objet).
Quand il sauvegarde l'objet dans le DFM, si la propriété est à sa valeur par défaut, alors il ne la sauvegarde pas.
cela permet de ne pas tout sauver dans un objet, afin d'alleger les DFM.

[JustMe]

oups j'ai cru que s'était stored qui était responsable de sauvegarder les valeurs dans les dfm.
Merci à vous très sympa.
ça marche nickel.

[Dr.Who]

stored force la sauvegarde, toute les propriété sont "stored" par défault.

généralement on précise stored false pour désactiver justement l'enregistrement d'un propriété (un pointeur par exemple)

Code :

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

property ptr : pointer read getpointer write setpointer default nil stored false;