[TWinControl] creation composant

**esa** · 13/12/2005, 11h36

Bonjour a tous,
J'ai créé un petit compo de classe TWinControl contenant 2 panels.
Tout fonctionne bien sauf lorsque j'ajoute un Label (par ex) sur mon compo en mode design, il devient nil lors de l'execution... Pourquoi ?

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
 
type
  TKMultiPanel = class(TWinControl)
  private              
    FPanel1      : TPanel;
    FPanel2      : TPanel;
    procedure SetPanel1(const Value: TPanel);
    procedure SetPanel2(const Value: TPanel);
  public    
    constructor Create(AOwner: TComponent); override;
  published
    property Panel1         : TPanel         read FPanel1          Write SetPanel1;
    property Panel2         : TPanel         read FPanel2          Write SetPanel2;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Compos', [TKMultiPanel]);
end;
 
{ TKMultiPanel }
 
constructor TKMultiPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
 
  FPanel1 := TPanel.Create(Self);
  FPanel1.Parent := Self;
 
  FPanel2 := TPanel.Create(Self);
  FPanel2.Parent := Self;
 
  ReplacePositionPanel; // placer les panels
end;

D'avance merci.

**LadyWasky** · 13/12/2005, 11h46

Parce que ça doit probablement le rajouter a ton TWinControl et non au TPanel visé (ou vice-versa).

En plus, Il faudrait que tu donnes un nom à tes panels :

Code :

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

1
2
FPanel1.Name:='SubPanel1';
FPanel2.Name:='SubPanel2';

On ne sait jamais...

**esa** · 13/12/2005, 11h52

Envoyé par waskol

En plus, Il faudrait que tu donnes un nom à tes panels

Exact, mais ca ne résoud pas le pb.

Envoyé par waskol

Parce que ça doit probablement le rajouter a ton TWinControl et non au TPanel visé (ou vice-versa).

Ok, mais comment faire pour concerver le panel en tant que parent lorsque je pose un label dessus ?

**LadyWasky** · 13/12/2005, 13h05

Par rapport à ce que j'ai déjà fait, pour faire un composant composite comme celui là, je le ferais dérivé de TCustomControl au lieu de TWinControl.

Ensuite, dans le Create de ton Panel, je rajouterais ça

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
constructor TKMultiPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := []; //Comme ça, il n'y a que les Panels qui accepte des controles)
  FPanel1 := TPanel.Create(Self);
  FPanel1.Parent := Self;
 
  FPanel2 := TPanel.Create(Self);
  FPanel2.Parent := Self;
 
  FPanel1.Name:='SubPanel1';
  FPanel2.Name:='SubPanel2';
 
  ReplacePositionPanel; // placer les panels
end;

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
 
TKMultiPanel = class(TWinControl)
  private             
    FPanel1      : TPanel;
    FPanel2      : TPanel;
    FTransparent:boolean;
    FOnPaint: TNotifyEvent;
    procedure SetPanel1(const Value: TPanel);
    procedure SetPanel2(const Value: TPanel);
    function GetTransparent: Boolean;
    procedure SetTransparent(const Value: Boolean);
  protected
    procedure CreateParams(var Params: TCreateParams); override;
    procedure Paint; override;
  public   
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
    property DockManager; 
  published
    property Panel1         : TPanel         read FPanel1          Write SetPanel1;
    property Panel2         : TPanel         read FPanel2          Write SetPanel2;
    property Transparent: Boolean read GetTransparent write SetTransparent
      default True;
    property OnPaint: TNotifyEvent read FOnPaint write FOnPaint;
    property Align;
    property Anchors;
    property AutoSize;
    property BevelInner;
    property BevelOuter;
    property BevelWidth;
    property BiDiMode;
    property BorderWidth;
    property Caption;
    property Color;
    property Constraints;
    property Ctl3D;
    property UseDockManager default True;
    property DockSite;
    property DragCursor;
    property DragKind;
    property DragMode;
    property Enabled;
    property Font;
    property ParentBiDiMode;
    property ParentBackground;
    //property ParentColor;
    property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property Visible;
    property OnCanResize;
    property OnClick;
    property OnConstrainedResize;
    property OnContextPopup;
    property OnDockDrop;
    property OnDockOver;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDock;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnGetSiteInfo;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnResize;
    property OnStartDock;
    property OnStartDrag;
    property OnUnDock;
  end;
 
procedure TKMultiPanel.Paint;
begin
  if Assigned(FOnPaint) then
  begin
    FOnPaint(Self);
    Exit;
  end;
  Canvas.Font := Self.Font;
  Canvas.Brush.Color := Color;
  if not Transparent or ThemeServices.ThemesEnabled then
    DrawThemedBackground(Self, Canvas, ClientRect)
  else
    Canvas.Brush.Style := bsClear;
end;
 
procedure TKMultiPanel.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if Transparent and not ThemeServices.ThemesEnabled then
  begin
    // (rom) gives a better look in IDE if always set (not fully correct though)
    //if not (csDesigning in ComponentState) then
      Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
    ControlStyle := ControlStyle - [csOpaque];
  end
  else
  begin
    //if not (csDesigning in ComponentState) then
      Params.ExStyle := Params.ExStyle and not WS_EX_TRANSPARENT;
    ControlStyle := ControlStyle + [csOpaque];
  end;
end;
 
procedure TKMultiPanel.SetTransparent(const Value: Boolean);
begin
  if Value <> FTransparent then
  begin
    FTransparent := Value;
    with ThemeServices do
    if not ThemesEnabled then
    begin
      RecreateWnd;
    end;
  end;
end;
 
function TKMultiPanel.GetTransparent: Boolean;
begin
  Result := not (csOpaque in ControlStyle);
end;
 
procedure TKMultiPanel.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
  inherited SetBounds(ALeft, ATop, AWidth, AHeight);
  //Ici tu gère le placement de tes Panels et leur taille
 ...
end;

Normalement, ça devrait marcher...

**esa** · 13/12/2005, 13h46

Merci, mais c'est pareil...

Quand je pose un label sur le panel1 du compo, il se place bien dedans car il ne peut etre a cheval sur les 2 panels. Mais dans la vue arborescente des objets, Label1 reste à coté de KMultiPanels1 et n'est pas son enfant. De plus, en exécution, Label1 = nil.

Y-a-t'il une solution ?

**DMO** · 13/12/2005, 14h23

Peut-être peux-tu essayer de faire une frame à la place d'un descendant de TWinControl. Ce sera plus facile.

**esa** · 13/12/2005, 15h06

Envoyé par DMO

Peut-être peux-tu essayer de faire une frame à la place d'un descendant de TWinControl. Ce sera plus facile.

Si le compo est un class(TFrame) je ne peux pas le poser sur mon Form1 car il me dit : Ressource TKMultiPanel non trouvée.

**DMO** · 13/12/2005, 15h32

Oui effectivement en français on dit (je m'auto-corrige) "cadre".

Je parle effectivement d'un descendant de TFrame, mais il faut faire Fichier > Nouveau > Cadre (c'est un peu comme une form, d'ou la ressource qu'il ne trouve pas).

Code :

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

1
2
  TKMultiPanel = class(TFrame)
  end;

Puis tu mets l'unité dans un paquet, pour pouvoir poser ton cadre dans ta form (ce qui ne pose en théorie aucun problème, puisque c'est justement le but).

Je te suggère ceci pour 2 raisons :

Tu semble faire ce controle pour y placer dedans des panels, tu peux le faire aisément avec les cadres.
Je pense que tu n'aurais plus les problèmes actuels en mode conception.

Ceci dit bien sûr ce n'est qu'une suggestion, juste pour que tu saches que ca existe. Un compo descendant de TWinControl est parfaitement justifiable aussi.

**esa** · 13/12/2005, 15h38

C'est effectivement ce que j'avais compris et fait.
Mais je compo ne se dépose pas sur le form depuis la palette et un boite d'alerte me dit : Ressource TKMultiPanel non trouvée.

**esa** · 13/12/2005, 15h40

Oooops, j'ai mal lu ta derniere reponse...

**DMO** · 13/12/2005, 15h42

Si tu n'as fait qu'un remplacement de TWinControl par TFrame c'est normal, passe par le menu Fichier > Nouveau > Cadre.

Je te suggère plutot de faire un test à coté pour voir si cette solution te convient.

**esa** · 13/12/2005, 16h00

Ok, mais ca reste pareil...
Lors de l'exécution, Label1 = nil.

**bjl** · 13/12/2005, 16h09

Bonjour,

si j'ai bien compris, le problème est de rajouter un controle dans le twincontrol (parent) par un drop au design.

pour cela, il me semble qu'il faut rajouter [CsAcceptsControls] dans la propriété controlStyle lors du create.

**esa** · 13/12/2005, 16h18

Ca ne permet pas plus au Label1 d'être contenu par TKMultiPanel1.FPanel1 en excécution.
Je vois pas vraiment le bout

**bjl** · 13/12/2005, 16h21

une petite chose en passant......

tes procédures setpanel .... si tu enlevais les mots clef const... peut être que tes panels accepteraient la modification.....

**esa** · 13/12/2005, 16h28

Nop, ca fait pareil.

**LadyWasky** · 13/12/2005, 16h29

Effectivement un composant composite qui accepte des composants acceptant des composants ça devient tout de suite problématique.

Sinon : je tiens une piste !

J'ai creusé la chose et voilà ce qu'il en ressort :
Tu aurais bien la possibilité de rajouter ça (en override) dans ton code :

Code :

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

1
2
3
4
5
6
7
8
procedure TKMultiPanel.GetChildren(Proc: TGetChildProc; Root: TComponent);
begin
  if (FPanel1<>nil) and (FPanel2<>nil) then
  begin
    Proc(FPanel1);
    Proc(FPanel2);
  end;
end;

Mais même si ça solutionne ton problème partiellement, ce n'est pas encore gagné, parce qu'en plus il faudrait surcharger GetChildParent et GetParentComponent pour la lecture du flux et je ne sais absolument pas si c'est comme ça qu'on s'y prend !

Code :

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

1
2
3
4
5
6
7
8
9
function TKMultiPanel.GetChildParent: TComponent;
begin
  Result := self;
end;
 
function TKMultiPanel.GetParentComponent: TComponent;
begin
  Result := self;
end;

N'oublie pas ça dans ta définition de classe :

Code :

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

1
2
3
4
5
6
7
8
9
10
TKMultiPanel = class(TCustomControl)
  private
    ...
  protected
    ...
    function GetChildParent: TComponent; override; 
    procedure GetChildren(Proc: TGetChildProc; Root: TComponent);override;
    public
    function GetParentComponent:TComponent;override;
     ....

**esa** · 13/12/2005, 16h45

Effectivement, GetChildParent retourne une erreur lors de l'exécution.

**anapurna** · 14/12/2005, 17h42

salut

si c'est un simple probleme de parent il te suffit juste de l'affecte
dans un evenement bien choisi
disont insertcompoment

exemple

Code :

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

 acompoment.parent := self

par contre le fait que le label soit a nil me surprend ?
tu le creer comment

@+ Phil

**esa** · 14/12/2005, 17h54

Envoyé par anapurna

par contre le fait que le label soit a nil me surprend ?
tu le creer comment

Une fois mon compo posé sur mon Form1, je pose le label sur mon compo, tout simplement. Il apparait bien dans le panel du compo.
Mais en execution, il n'apparait pas et un test me permet de voir qu'il est à nil...

[TWinControl] creation composant

Composants VCL Delphi

Discussions similaires

Partager

Partager