Discussion :

[Rayek]

Bonjour,

Je m'attaque à la création d'un composant visuel qui possède 3 parties distinctes étant chacune un TPanel.

Mon soucis est lors de l'utilisation en designtime du composant.
Lorsque je pose un autres composants (genre un Tedit) dans une des 3 parties.
Si je bascule en mode Text de la form ce composant n'apparait pas.

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
 
TNewPanel = class(TRzCustomPanel)
  private
      FPan_Top    : TRzPanel;
      FPan_Client : TRzPanel;
      FPan_Bottom : TRzPanel;
  public
    constructor Create( AOwner: TComponent ); override;
end;
 
constructor TNewPanel.Create(AOwner: TComponent);
begin
  Inherited Create(AOwner);
 
  FPan_Top := TRzPanel.Create(Self);
  FPan_Top.Parent := Self;
  FPan_Top.Align := alTop;
  FPan_Top.Visible := True;
 
  FPan_Bottom := TRzPanel.Create(Self);
  FPan_Bottom.Parent := Self;
  FPan_Bottom.Align := alBottom;
  FPan_Bottom.Visible := True;
 
  FPan_Client := TRzPanel.Create(Self);
  FPan_Client.Parent := Self;
  FPan_Client.Align := alclient;
  FPan_Client.Visible := True;
end;

y a t il quelque chose à faire de spécial pour que les composants posées dans le panel (Ex : FPan_Top) soit bien enregistré ?

Merci

[Cl@udius]

Salut

Ne manquerait-il pas un inherited dans le constructeur TGinPanel ?
L'absence d'Owner expliquerait cela (à verifier).

@+

[Rayek]

Je l'ai juste oublié quand j'ai mis le code sur le forum (Le code est plus complexe que çà ) et il est bien ^^

[Wriggles]

Salut,

Sur ce type de composant, je crois me souvenir qu'il faut déclarer les composants "internes" (en l'occurence tes panels) comme étant des sous-composants.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
constructor TNewPanel.Create(AOwner: TComponent);
begin
  Inherited Create(AOwner);
 
  FPan_Top := TRzPanel.Create(Self);
  FPan_Top.Parent := Self;
  FPan_Top.Align := alTop;
  FPan_Top.Visible := True;
  FPan_Top.SetSubComponent(true)
end;

De cette manière, Delphi devrait réellement prendre ton sous-composant comme étant un conteneur (enfin bon en théorie )

Bon courage

[Rayek]

Merci pour ta réponse mais malheureusement ca ne fonctionne pas

[ShaiLeTroll]

Ton TEdit apparait-il tout de même en dehors de ton TNewPanel ?
Ou il est complètement absent de la DFM ?

D'ailleurs, l'IDE considère que le futur parent c'est TNewPanel ou l'un des FPan_* ?

Tu devrais intercepter CM_CONTROLCHANGE (provoqué à chaque InsertControl dans un TWinControl), tu devrais ainsi pouvoir choper qui est le parent (ou forcer le Panel en dessous du curseur, si tu peux le choper)

En Delphi XE, tu pourrais utiliser un TGridPanel (ou TFlowPanel) pour faire cela !?