Discussion :

[Delphi-ne]

Dans mon application je créé dynamiquement un objet TPanel
Le code est le suivant et cela marche parfaitement le composant s'affiche bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  LO_Frame     := Tfr_Frame.Create(Nil);
   With LO_Frame Do Begin
        Parent    := pn_HTML;
        Name      := 'essai';
        Align     := alNone;
        Top       := mod_Structure.GO_Structure[PN_Ligne].Top;
        Left      := mod_Structure.GO_Structure[PN_Ligne].Left;
        Width     := mod_Structure.GO_Structure[PN_Ligne].Width;
        Height    := mod_Structure.GO_Structure[PN_Ligne].Height;
        Visible   := True;
   End;

Plus loin dans le code je liste les coposants de ma feuille. Là je vois bien tous les objets sauf celui créé dynamiquement

Code :

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

1
2
3
   For i := 0 To win_Bureau.ComponentCount - 1 DO Begin
      showmessage(win_Bureau.Components[i].Name);
   End;

J'ai essayé avec la propriété Controls mais cela na marche pas mieux

Merci d'avance pour votre aide

[Linkin]

Essaie avec

Code :

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

1
2
 
 LO_Frame     := Tfr_Frame.Create(win_Bureau);

Le paramètre du Create est le Owner. Components ne contient que les composants dont le Owner (pas le Parent) est win_bureau.

[ero-sennin]

Salut Delphi-ne,

Remplace cette ligne :

Code :

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

LO_Frame     := Tfr_Frame.Create(Nil);

par celle là

Code :

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

LO_Frame     := Tfr_Frame.Create(win_Bureau);

Car là tu créer un composant "dans le vide".

J'espère que celà fonctionnera

[EDIT] Grillé

[Delphi-ne]

C'est exactement ce qu'il fallait.
Merci beaucoup