Bonjour,
j'essaye de me créer un composant repliable, c'est à dire qu'il aurait une partie supérieur avec un titre et un bouton plier/replier, et une partie inférieure avec un panel (un flowpanel en l'occurence).
Seulement voilà, lorsque je drop un composant (type TCheckBox) sur mon composant j'ai bien la déclaration dans mon fichier pas mais rien au niveau dfm (aucun objet déclaré) :
Est ce que quelqu'un m'a compris ? Est ce que quelqu'un a une idée ?
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 TTDynamicPanel = class(TCustomControl) private Shape: TShape; LblHeader: TLabel; BtnUp: TSpeedButton; BtnDown: TSpeedButton; FOnExpand: TNotifyEvent; FOnCollapse: TNotifyEvent; function GetBrushColor: TColor; procedure SetBrushColor(const Value: TColor); function GetPenColor: TColor; procedure SetPenColor(const Value: TColor); function GetHeaderColor: TColor; procedure SetHeaderColor(const Value: TColor); function GetHeader: String; procedure SetHeader(const Value: String); function GetExpanded: Boolean; procedure SetExpanded(Value: Boolean); procedure ButtonClick(Sender: TObject); protected PaInfos: TFlowPanel; function GetEnabled: Boolean; override; procedure SetEnabled(Value: Boolean); override; public constructor Create(AOwner: TComponent); override; procedure SetFocus; override; published property Align; property Anchors; property BrushColor: TColor read GetBrushColor write SetBrushColor; property Constraints; property Enabled: Boolean read GetEnabled write SetEnabled default True; property Expanded: Boolean read GetExpanded write SetExpanded default True; property Font; property ParentColor; property ParentCtl3D; property ParentFont; property PenColor: TColor read GetPenColor write SetPenColor; property TabOrder; property HeaderColor: TColor read GetHeaderColor write SetHeaderColor; property Header: String read GetHeader write SetHeader; property Visible; property OnCollapse: TNotifyEvent read FOnCollapse write FOnCollapse; property OnExpand: TNotifyEvent read FOnExpand write FOnExpand; end;
Partager