Discussion :

[peter27x]

bonjour,

dans une classe, j'ai un TLabel en private.

Je le crée et initialise comme suit dans le create de la classe:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  ...
  titre:=TLabel.Create(AOwner);
  // le AOwner est le winControl qui contient l'objet de classe créé
  // l'objet créé apparait bien dans ce AOwner (c'est un panel)
  titre.name:='toto';
  titre.Font.Color:=clBlack;
  titre.Caption:='TOTO';
  titre.Visible:=true;
  titre.Left:=50;
  titre.Top:=50;
  titre.BringToFront;
  ...

L'objet de classe se crée, le TLabel aussi vu qu'il n'y a pas de plantage... mais ce dernier, lui, n'apparait pas...

Ca doit tenir à pas grand chose... GRRRRR

Merci.

[Yurck]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 titre:=TLabel.Create(AOwner);
  // le AOwner est le winControl qui contient l'objet de classe créé
  // l'objet créé apparait bien dans ce AOwner (c'est un panel)
  titre.name:='toto';
  titre.Font.Color:=clBlack;
  titre.Caption:='TOTO';
  titre.Visible:=true;
  titre.Left:=50;
  titre.Top:=50;
  AOwner.insertControl(Titre);
  titre.BringToFront;

a+

[peter27x]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 titre:=TLabel.Create(AOwner);
  // le AOwner est le winControl qui contient l'objet de classe créé
  // l'objet créé apparait bien dans ce AOwner (c'est un panel)
  titre.name:='toto';
  titre.Font.Color:=clBlack;
  titre.Caption:='TOTO';
  titre.Visible:=true;
  titre.Left:=50;
  titre.Top:=50;
  AOwner.insertControl(Titre);
  titre.BringToFront;

a+

Merci bcp, ça marche... ça m'énerve de buter à chaque fois sur des détails comme ça que je ne trouve pas dans le F1...

[LeGEC]

Salut,

En ragardant la doc de Delphi sur la méthode "insertControl", ils conseillent d'utiliser la propriété Parent plutôt :

Les applications n'ont pas besoin d'appeler directement InsertControl . A la conception, les contrôles enfant sont automatiquement insérés et retirés lorsqu'ils sont ajoutés ou supprimés. A l'exécution, utilisez la propriété Parent du contrôle enfant pour l'insérer dans le tableau Controls . Si le contrôle enfant est déjà l'enfant d'un autre contrôle, changez la propriété Parent de l'enfant car cela retire automatiquement l'enfant de la liste Controls de son parent d'origine.

Code :

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

titre.Parent := AOwner; //ou Panel4, ou ...

La propriété Owner (assignée à la création de l'objet : "TLabel.Create(AOwner)" ) veut dire que lorsque le Owner sera détruit, tous les objets pour lesquels il est marqué comme Owner seront également détruits.

La prorpiété Parent, elle, sert pour toutes les propriétés d'affichage. Par exemple, les coordonnées Left et Top sont calculées à partir du coin supérieur gauche du Parent ; si le Parent devient invisible, il masque tous ses fils avec lui, etc...

[peter27x]

Salut,

En ragardant la doc de Delphi sur la méthode "insertControl", ils conseillent d'utiliser la propriété Parent plutôt :

Code :

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

titre.Parent := AOwner; //ou Panel4, ou ...

La propriété Owner (assignée à la création de l'objet : "TLabel.Create(AOwner)" ) veut dire que lorsque le Owner sera détruit, tous les objets pour lesquels il est marqué comme Owner seront également détruits.

La prorpiété Parent, elle, sert pour toutes les propriétés d'affichage. Par exemple, les coordonnées Left et Top sont calculées à partir du coin supérieur gauche du Parent ; si le Parent devient invisible, il masque tous ses fils avec lui, etc...

Merci pour les infos.