Discussion :

[Kaïn]

Bonjour,

Dans le cadre d'un développement delphi 2005, je suis amené à créer une liste de composants, définis par un nom et une valeur. Il m'est venue l'idée de créer un objet dérivé d'une TForm, contenant un label et une editBox, chacune contenant respectivement le nom et la valeur du composant à afficher. L'idée est d'instancier autant d'objet dérivé de TForm que de composant a afficher. De plus, ces instances de composants sont stockés dans une liste dans la classe parent. Ainsi, le code ressemble a ceci pour la création / stockage dans la liste :

Code :

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

1
2
3
4
 
  //pour  chaque entité
  for i := 0 to nbEntity -1 do
    myFrmEntityList.add (TfrmEntity.createEntity(self,myEntity[i], i));

Le constructeur createEntity est défini comme suit :

Code :

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

1
2
3
4
5
6
7
8
 
constructor TfrmEntity.createFrmEntity(aOwner : TComponent; aEntity :TEntity; aIndex : integer );
begin
  inherited create (aOwner);
  setEntity(aEntity);
  afficherEntity;
  Name := name + intToStr(aIndex);
end;

Ensuite, je voudrais afficher chaque instance de frmEntity contenue dans la liste myFrmEntityList. Pour cela, j'ai fait le code suivant :

Code :

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

1
2
3
4
5
6
7
 
for i := 0 to myFrmEntityList.count -1 do
begin
  myfrmEntityList[i].parent := self;
  myfrmEntityList[i].top := calculNextTop ();
  myfrmEntityList[i].show;
end;

ou calculNextTop renvoie un compteur incrémenté de 25 à chaque passage.

Mon problème est le suivant : les instances de myfrmEntity se superposent, comme si leur top était à 0, alors que chaque propriété top a bien une valeur différente. Existe t-il une méthode particulière pour afficher une liste de forme ? Faut -il mieux passer par des TFrames ? J'avoue que je nage un peu a ce niveau la.

[Pascal Jankowski]

Peux-tu donner la definition de ta class myFrmEntityList ?

Je pense qu'il faille peut-être caster comme cela

Code :

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

1
2
3
4
5
6
7
for i := 0 to myFrmEntityList.count -1 do
begin
  ...
  TForm(myfrmEntityList[i]).top := calculNextTop ();
  ...
end;

Par ailleurs j'ai fais plusieurs développements avec des fenêtres embarquées comme toi. Si je peux t'apporter un conseil c'est de ne pas assigner le parent de ta fenêtre embarquée par un :

Code :

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

TForm(myfrmEntityList[i]).parent := self;

Mais plutôt grace à l'api de windows SetParent, comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 var F: TForm;
begin
  F := TForm.Create(Form1);
  with TEdit.Create(Self) do
    parent := F;
  with TEdit.Create(Self) do
  begin
    top := 30;
    parent := F;
  end;
  Windows.SetParent(F.Handle, Form1.Handle);
  F.Show;
end;

Sinon des comportrements étranges se produisent lors de l'exécution.

Va voir ce fil de discussion : http://www.developpez.net/forums/showthread.php?t=30196

Cordialement

[Kaïn]

ca fonctionne très bien ^^ merci Effectivement, avec Windows.SetParent(); ca fonctionne très bien ^^ merci