[TWinControl] creation composant

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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.

13/12/2005, 11h46
LadyWasky
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:

1 2 FPanel1.Name:='SubPanel1'; FPanel2.Name:='SubPanel2';
On ne sait jamais...
13/12/2005, 11h52
esa

Citation:

Envoyé par waskol

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

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

Citation:

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 ?

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:

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:

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... :wink:

13/12/2005, 13h46
esa

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 ?
13/12/2005, 14h23
DMO

Peut-être peux-tu essayer de faire une frame à la place d'un descendant de TWinControl. Ce sera plus facile. :wink:
13/12/2005, 15h06
esa

Citation:

Envoyé par DMO

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

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.
13/12/2005, 15h32
DMO
Oui effectivement en français on dit (je m'auto-corrige) "cadre". :frenchy:
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:

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. :wink:
13/12/2005, 15h38
esa

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.
13/12/2005, 15h40
esa

Oooops, j'ai mal lu ta derniere reponse...
13/12/2005, 15h42
DMO

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.
13/12/2005, 16h00
esa

Ok, mais ca reste pareil...
Lors de l'exécution, Label1 = nil.
13/12/2005, 16h09
bjl

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.
13/12/2005, 16h18
esa

Ca ne permet pas plus au Label1 d'être contenu par TKMultiPanel1.FPanel1 en excécution.
Je vois pas vraiment le bout :(
13/12/2005, 16h21
bjl

une petite chose en passant......

tes procédures setpanel .... si tu enlevais les mots clef const... peut être que tes panels accepteraient la modification.....
13/12/2005, 16h28
esa

Nop, ca fait pareil.

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:

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:

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:

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; ....

13/12/2005, 16h45
esa

Effectivement, GetChildParent retourne une erreur lors de l'exécution.
14/12/2005, 17h42
anapurna

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:

acompoment.parent := self

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

@+ Phil
14/12/2005, 17h54
esa

Citation:

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...

Voir 40 message(s) de cette discussion en une page