Discussion :

[Caesarus]

Bonjour,

J'ai un crée un composant conteneur avec un autre conteneur à l’intérieur,
et en design je voudrais intercepter l'ajout un composant pour le mettre sur le conteneur interne.

J'ai eu beau chercher, je n'arrive pas a trouver la moindre piste pour intercepter l'ajout d'un composant dans un conteneur. Quelqu'un aurait-il une idée ?

[Caesarus]

J'ai trouvé ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TFond.CMControlChange(var Message: TCMControlChange);
begin
  inherited;
  if not (csReading in ComponentState) then
    with Message do
      if Inserting and (Control <> FHScroll)  and (Control <> FVScroll)  and (Control <> fScrollBox) then
      begin
        Control.Parent:=fScrollBox;
        Control.Visible := true;
      end;
end;

Ça marche bien en design mais comme mon composant fScrollBox est interne au composant TFond
L'enregistrement de la fiche zappe les composants contenu dans le FScrollBox. du coup rien dans le dfm dès qu'on recharge la fiche mon conteneur est vide.

Quelqu'un aurait il la fonction déclenchant l'enregistrement (dfm) d'une fiche ?