Discussion :

[Bernard M]

Bonjour à tous

Petit problème : j'ai créé un composant dans lequel je souhaite implémenter (je ne sais pas si l'expression est bonne ) une propriété de type Trect, avec la variable locale correspondante ainsi que la property dans la section published, et tout et tout... Seulement mon champ n'apparaît pas dans l'inspecteur d'objet !

J'imagine que la solution que vous me proposerez sera valable pour toute propriété de type record.

Pour info, je développe sous Delphi 7

Merci de votre aide

[Jipété]

Rien compris,
et j'ai l'impression que je ne suis pas le seul,
--
jp

[Pedro]

Rien compris,
et j'ai l'impression que je ne suis pas le seul,
--
jp

Je crois avoir compris... J'essaie:
Donne-nous la déclaration de ta propriété ainsi que sa variable.

[Bernard M]

Merci de vous occuper de mon cas

Ma question est - et Pedro me semble l'avoir comprise - est de pouvoir définir la propriété de type TRect de mon composant à l'aide de l'inspecteur d'objet, lors de la conception de ma fiche.

Mon TBMTrackBar est un descendant de TLabel

Dans la section private :

Code :

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

FBarMargin: TRect;

Dans la section published :

Code :

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

BarMargin: TRect read FBarMargin write FBarMargin;

Pour info, je n'ai aucun problème avec des propriétés de type "non-record"

Merci à vous

[Pedro]

OK donc j'avais bien compris.
Tu ne peux pas utiliser les record directement comme ceci. Si tu veux vraiment avoir ces valeurs dans l'inspecteur d'objet, il te faut passer par une classe:

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
 
TMonTRect = class(TPersistent)
private
  FLeft, FRight, ... : integer;
public
  procedure GetRect: TRect;
published
  property Left: integer read FLeft write FLeft;
  property Right: integer read FRight write FRight;
  ...
end;
 
TTaClasse = TTonAncetre
private
  FBarMargin: TMonRect;
public
  contructor Create(...); override;
  destroy Destroy; override;
published
  property BarMargin: TMonRect read FBarMargin write FBarMargin;
end;
 
...
 
//TMonRect
function GetRect: integer;
begin
  Result.Left := FLeft;
  Result.Right := FRight;
  ...
end;
 
//TTaClasse
contructor Create(...);
begin
  inherited;
  FBarMargin := TMonRect.Create;
end;
 
 
destructor Destroy;
begin
  FreeAndNil(FBarMargin);
  inherited;
end;

Voila

[slimjoe]

Si tu veux vraiment avoir ces valeurs dans l'inspectuer d'objet, il te faut passer par une classe:

Code :

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

1
2
TMonTRect = class
  ...

Ne faut-il pas que la classe hérite de TPersistent ?

[Pedro]

Ne faut-il pas que la classe hérite de TPersistent ?

Houla oui! Décidemment en ce moment moi...

[Bernard M]

Bonsoir à tous

Un grand merci à pedro pour sa réponse très claire

Merci à slimjoe pour l'idée du TPersistent - je n'avais pas encore lu le mea culpa de pedro -. Sans ça l'inspecteur d'objet ne peut pas développer mon "pseudo-record"

Ca marche nickel-chrome

Donc tout ça est une affaire réglée