Propriété de type TRect

**Bernard M** · 20/11/2006, 20h42

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é** · 20/11/2006, 23h22

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

--
jp

**Pedro** · 20/11/2006, 23h23

Envoyé par Jipété

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** · 21/11/2006, 07h35

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** · 21/11/2006, 14h13

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;