Discussion :

[All Jinx]

Bonjour,

Je suis en train de créer un contrôle contenant (entre-autres) des Combobox.
Seulement voilà, dans le constructeur de mon contrôle, j'ajoute des Items de cette facon :

Code :

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

1
2
3
4
5
6
7
8
9
 
with MyComboBox do
begin
 
   Items.Add( 'Kikoo' );
   Items.Add( 'Arf' );
   Items.Add( 'Erf' );
 
end;

Lorsque je drag'n drop mon cotrôle sur une fiche, j'obtiens alors un message d'erreur : " Le contrôle '' n'a pas de fenêtre parente ".
Toutes les autres propriétés fonctionnent correctement.

Le plus fou, c'est que si je compile mon controle sans ces lignes et que je crée un projet avec une fiche avec celui-ci posé dessus, ensuite je remodifie mon controle pour y ré-ajouter ces lignes, je relance mon appli et là tout marche parfaitement, les items sont bien ajoutés et visibles !

Je ne comprends pas trop.

Merci pour votre aide !

[Pedro]

Salut
La raison est simple: si tu ajoutes ces Items, le contrôle a besoin de se redessiner et donc d'un parent...
Donc

Code :

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

1
2
 
MyComboBox.Parent := ControleParent;

Si ça ne marche toujours pas, cela veut dire qu'il te faut ajouter les Items après la création: par exemple quand le contrôle apparait pour la première fois

[All Jinx]

Oui j'ai bien affecté la propriété Parent.

Celà signifie donc que je ne peux pas avoir une liste d'Items tout prêts dans un contrôle utilisateur ? C'est très ennuyeux Y-aurait-il une astuce ?

[Pedro]

Celà signifie donc que je ne peux pas avoir une liste d'Items tout prêts dans un contrôle utilisateur ?

Bien sûr que si: tu as sa propriété Items que tu remplis: c'est une TStrings

[All Jinx]

En créant ma propre liste, je rencontre le même problème, voici mon code :

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
 
 
constructor grpslctJeux.Create;
begin
 
  inHerited Create(owner);
  setBounds(8, 0, 489, 113);   // Taille du panel
  self.BevelOuter := bvNone;
 
  cbx_stylecourse := TCombobox.Create(self);
  with cbx_stylecourse do
  begin
    Parent := self;
    Left := 16 ;
    Top := 16 ;
    Width := 121 ;
    ItemHeight := 13 ;
    Style := csDropDownList ;
    Caption := 'Style de la course' ;
    Font.Height := -11 ;
    Font.Name := 'MS Sans Serif' ;
    ParentFont := False ;
    TabOrder := 0 ;
  end;
 
  glst_items := TStringList.Create ;
  glst_items.Append('test');
 
  cbx_stylecourse.Items :=  glst_items ; // C'est cette ligne qui provoque mon erreur lorsque je fait glisser mon controle sur une fiche :cry: 
 
end;

Je ne vois pas trop comment faire autrement.

[Pedro]

Je ne vois pas trop comment faire autrement.

Mais non. Qand je te parle de la propriété Items, c'est celle que tu trouves dans l'éditeur de propriété
Il n'y a aucun code à taper

[All Jinx]

Ah ok, mais bon si je dois les saisirs à la main dans l'éditeur de propriété à chaque fois que je crée une instance de mon contrôle sur une fiche, c'est pas du tout interessant
Il doit forcément y a voir un moyen je pense

[Pedro]

Ah ok, mais bon si je dois les saisirs à la main dans l'éditeur de propriété à chaque fois que je crée une instance de mon contrôle sur une fiche, c'est pas du tout interessant

Si la liste est la même, tu peux copier/coller les composants

[All Jinx]

C'est un composant redondant dans beaucoup d'applications

( Merci pour ton aide Pedro c'est sympa )

[Pedro]

En regardant ton code, j'ai vu ça:

Code :

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

1
2
 
setBounds(8, 0, 489, 113);   // Taille du panel

Je ne sais pas si c'est bien règlementaire de spécifier la taille à la création
Essaie de désactiver cette ligne pour voir
en utilisant le bon code:

Code :

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

1
2
3
4
5
6
7
8
 
with MyComboBox do
begin
 
   Items.Add( 'Kikoo' );
   Items.Add( 'Arf' );
   Items.Add( 'Erf' );
end;

[All Jinx]

Pas de problème avec setBounds apparament.

Bon j'ai contourné le problème en utilisant une TFrame en classe parent, ca fera très bien l'affaire.

Merci quand même

[jnmchl]

Bonjour,

Je sais c'est ancien mais dans
cbx_stylecourse := TCombobox.Create(self);
cbx_stylecourse.Parent:=self;

self fait référence à : grpslctJeux
or si grpslctJeux n'est pas un contrôle fenêtré tu auras l'erreur.

Il faut que grpslctJeux descende d'un TWinControl (TForm, TPanel ...)
et qu'à self lui-même tu lui donnes un parent aussi un contrôle fenêtré (souvent la form initiale).

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 
  grpslctJeux = class(TCustomPanel)
    cbx_stylecourse := TCombobox;
    constructor Create(AOwner: TComponent); override;
  end;
 
constructor grpslctJeux.Create(AOwner: TComponent);
begin
  inHerited;
  self.Parent:=TWinControl(AOwner);
  setBounds(8, 0, 489, 113);   // Taille du panel
  self.BevelOuter := bvNone;
 
  cbx_stylecourse := TCombobox.Create(self);
  with cbx_stylecourse do
  begin
    Parent := self;
    Left := 16 ;
    Top := 16 ;
    Width := 121 ;
    ItemHeight := 13 ;
    Style := csDropDownList ;
    Caption := 'Style de la course' ;
    Font.Height := -11 ;
    Font.Name := 'MS Sans Serif' ;
    ParentFont := False ;
    TabOrder := 0 ;
  end;
 
  glst_items := TStringList.Create ;
  glst_items.Append('test');
 
  cbx_stylecourse.Items :=  glst_items ; // C'est cette ligne qui provoque mon erreur lorsque je fait glisser mon controle sur une fiche :cry: 
 
end;

Le problème ne venait pas du ComboBox ni du strings, mais de ton composant lui-même : self.Parent:=TWinControl(AOwner).
Cdlt