[Delphi 2007] Créer un composant repliable

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:

---

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 :aie: ? Est ce que quelqu'un a une idée :D?

:salut:

Ca ne serait pas plus simple de se contenter d'une simple Form qui à l'aide d'un bouton, tu redimensionnes ?

Puisque ça se redimensionne toujours vers le bas ; tu devrais y trouver avantage.

Enfin, si j'ai bien compris le sens de ta demande :oops:

@+

Bonjour,

Si j'ai bien compris ce que tu veux, il y a le JVRollout de la jvcl qui fait cela.

@++
Dany

Il y a aussi le très beau composant SpookPanel sur Torry's Delphi, avec un bel effet de plier/déplier ....;)

Citation:

---

Envoyé par Droïde Système7

:salut:

Ca ne serait pas plus simple de se contenter d'une simple Form qui à l'aide d'un bouton, tu redimensionnes ?

Puisque ça se redimensionne toujours vers le bas ; tu devrais y trouver avantage.

Enfin, si j'ai bien compris le sens de ta demande :oops:

@+

---

J'ai besoin d'en dropper plusieurs dans un tabsheet pour une présentation par "bloc"

Citation:

---

Envoyé par skywaukers

Bonjour,

Si j'ai bien compris ce que tu veux, il y a le JVRollout de la jvcl qui fait cela.

@++
Dany

---

Oui je connais mais j'ai aussi besoin d'un flowpanel parce qu'il s'occupe de tout repositionner si je rends un des composants contenu dedans invisible.

Citation:

---

Envoyé par petitprince

Il y a aussi le très beau composant SpookPanel sur Torry's Delphi, avec un bel effet de plier/déplier ....

---

Je vais l'essayer pourquoi pas...mais j'aurais bien voulu connaitre l'explication. Il semblerait que les composant que je drop sur mon composant ne renseigne pas le parent....pourquoi rien n'est généré dans le dfm puis qu'en conception je les voit dans L'EDI et dans le source .pas :calim2:??

ERRATUM: Dans mon source, j'avais déplacé mon flowpanel pour voir si cela changeait quelquechose, je le remet là où il doit être....

Code:

---

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; PaInfos: TFlowPanel;   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 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;

---

Citation:

---

Envoyé par petitprince

Il y a aussi le très beau composant SpookPanel sur Torry's Delphi, avec un bel effet de plier/déplier ....;)

---

En tous cas moi il me convient parfaitement:ccool::ccool::ccool:

merci.

si tu le crée en dynamique, normal que dans le DFM il n'y ai rien.


sinon, peut on voir l'implementation de l'objet ?

Ok ça marche, j'avais oublié certaines propriétés à l'héritage.....:aie:
Désolé du temps de réponse et merci pour votre aide !!