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é) :
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;
Est ce que quelqu'un m'a compris ? Est ce que quelqu'un a une idée ?