Bonjour à tous,
Je suis en train de créer mon premier composant. Il s'agit d'un composant conteneur dérivant de TWinControl. Voici le code très simple que j'ai écrit pour le moment :
Le problème est que le TLabel ainsi créé est noir et non aqua... Comment fait-on pour qu'il prenne la couleur par défaut de ColumsHeadColor et que sa couleur change lorsqu'on modifie la valeur de cette propriété ?
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 unit JBSimplePlanner; interface uses SysUtils, Classes, Controls, StdCtrls, Dialogs, QGraphics ; type TJBSimplePlanner = class(TWinControl) private { Déclarations privées } FLabel : TLabel; FColumsHeadColor : TColor; protected { Déclarations protégées } public { Déclarations publiques } constructor Create(AOwner : TComponent); override; published { Déclarations publiées } property ColumsHeadColor : TColor read FColumsHeadColor write FColumsHeadColor default clAqua; end; procedure Register; implementation constructor TJBSimplePlanner.Create(AOwner : TComponent); begin inherited Create(AOwner); Height:=100; Width:=100; FLabel:=TLabel.Create(Self); FLabel.AutoSize:=False; FLabel.Color:=ColumsHeadColor; FLabel.Parent:=Self; FLabel.Height:=Height; FLabel.Width:=Width; FLabel.Caption:='Essai'; end; procedure Register; begin RegisterComponents('JB', [TJBSimplePlanner]); end; end.
Partager