Affichage conditionnel de propriétés dans l'inspecteur d'objets

**ChPr** · 23/11/2009, 10h23

Bonjour à toutes et à tous,

Je suis en train de créer un composant dans lequel certaines propriétés sont optionnelles, du genre : si échelle automatique, je me fo... des valeurs Min et Max et donc je souhaite que si je choisis "Auto", les propriétés "Min" et "Max" ne s'affichent pas ou pour le moins, qu'elles soient désactivées.

Est-ce possible avec Lazarus, et si oui, comment fait-on ?

Merci de votre aide.

Pïerre

**Dr.Who** · 23/11/2009, 23h49

non impossible comme cela.

une classe ne peut pas cacher ses propriétés ou méthode de façon dynamique encore moins dans l'IDE.

tout ce qui est published l'est définitivement.

par contre, tu peux tester ceci :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
interface
 
type
  TCustomComponent = class(TComponent)
  private
    fAuto : boolean;
    fPropA : integer;
    fPropB : integer;
  protected
    property PropA : integer read fPropA write fPropA;
    property PropB : integer read fPropB write fPropB;
  public
    constructor Create(AOwner: TComponent; const IsAuto: boolean); override;
  end;
 
  TAutoComponent = class(TCustomComponent)
  published
    property PropB;
  public
    constructor Create(AOwner: TComponent); reintroduce; 
  end;
 
  TNormalComponent = class(TCustomComponent)
  published
    property PropA;
  public
    constructor Create(AOwner: TComponent); reintroduce;
  end;
 
 
implementation
 
constructor TCustomComponent.Create(AOwner: TComponent; const IsAuto: Boolean);
begin
  case IsAuto of
    false : result := TNormalComponent.Create(AOwner);
    true  : result := TAutoComponent.Create(AOwner);
  end;
end;
 
constructor TAutoComponent.Create(AOwner: TComponent);
begin
  inherited;
  fAuto := true;
end;
 
constructor TNormalComponent.Create(AOwner: TComponent);
begin
  inherited;
  fAuto := false;
end;
 
end.

et faire :

Code :

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

1
2
3
4
5
6
7
var
  AC : TCustomComponent;
  NC : TCustomComponent;
begin
  AC := TCustomComponent.Create(Self, true);
  NC := TCustomComponent.Create(Self, false);
end;

j'espere que je ne me suis pas trompé sur le sélécteur de classe à créé, c'est une technique que j'ai vus il y'a longtemps...

**ChPr** · 24/11/2009, 01h07

Merci Dr.Who pour cette proposition.

J'ai essayé de créer un composant avec ton code. A la compilation, il y a des problèmes :

Code :

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

constructor Create(AOwner: TComponent; const IsAuto: boolean); override;

--> la classe ancètre TComposent ne dispose pas d'un tel constructeur. Donc, override ne peut être appliqué

Dans l'implémentation de ce constructeur, tu évoques la variable "result". Il n'y a pas de telle variable dans un constructeur.

Code :

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

1
2
3
4
5
6
7
constructor TCustomComponent.Create(AOwner: TComponent; const IsAuto: Boolean);
begin
  case IsAuto of
    false : result := TNormalComponent.Create(AOwner);
    true  : result := TAutoComponent.Create(AOwner);
  end;
end;

Je ne suis pas allé plus loin.

Mais pour autant que ces problèmes se résolvent, est-ce que je verrai soit l'une soit l'autre propriété dans l'inspecteur d'objet en créant l'un ou l'autre des composants Auto ou Normal ?

Cordialement.

Pierre

**chris37** · 24/11/2009, 13h11

Salut,

Pour faire ce genre de choses

Il faut créer une propriété générique(Type d'affichage par exemple : Date,Currency,text) servant uniquement a appeller un éditeur de propriété de votre cru. En suite dans celui ci et en fonction de ce que vous voulez faire et du type, vous pourrez afficher les champs (ceux de la form de l'editeur) en fonction. Vous pourrez même piloter les autres propriété du composant

Je ne connais pas d'autre méthode mais en attendant, celle ci fonctionne

**Dr.Who** · 24/11/2009, 18h41

oui désolé, j'ai pas tester l'implémentation.

en fait, il s'agit plus précisement de la stategie Design pattern.

par contre, je ne connais pas assé le concept pour dire s'il peu s'appliquer au objet.

mais le principe étant :

ObjetDeBase -> ObjA, ObjB
ObjetCreateur -> selon parametre propriété Obj = ObjA ou ObjB

sinon, question qu'on n'a pas posé, quel est le besoin réel ?
c'est a dire la finalité du composant ?
peut être y'a t'il d'autre solution qu'une implementation alambiqué.

**ChPr** · 24/11/2009, 20h37

Envoyé par Dr.Who

... sinon, question qu'on n'a pas posé, quel est le besoin réel ?
c'est a dire la finalité du composant ?
peut être y'a t'il d'autre solution qu'une implementation alambiqué.

C'est une bonne question. Cependant, peu importe la finalité du composant. Le but recherché était de faire comme cela existe dans certain logiciel au niveau des menus, c'est-à-dire de spécialiser celui-ci en fonction d'un choix en amont.

Mais bon, je ne vais pas retourner ciel et terre pour y parvenir. Je voulais simplement savoir si une solution simple existait.

Cordialement.

Pierre