Discussion :

[Arrown]

Bonjour a vous,
Petite question, lorsque je fais ceci :

Code :

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

1
2
3
4
5
6
7
...
var
  PPanel : TPanel
begin
PPanel := TPanel.Create(Form1);
PPanel.Parent := Form1.ScrollBox1;
...

Qui est-ce qui me détruira mon PPanel ? Mon Form1 lorsque je ferais un close, ou mon Scrollbox1 lorsque je ferais un Form1.Scrollbox1.free ?

Si c'est mon form1, comment puis je faire pour que ce soit mon scrollbox ? (sachaint que si je fais un create(Form1.scrollbox), je ne le vois pas).

Merci a vous.

[chtiot]

en toute logique ça devrait être ton scrollbox qui detruira ton panel

[Nono40]

Dans ton cas il vaudrait mieux faire :

Code :

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

1
2
3
4
5
var 
  PPanel : TPanel 
begin 
PPanel := TPanel.Create(Form1.ScrollBox1); 
PPanel.Parent := Form1.ScrollBox1;

Ce qui me surprend c'est que tu dis que le panel n'est pas visible dans ce cas...

[Arrown]

Hum, après quelques vérification, vous avez tout les deux raison, et je me suis trompé, ils s'afiuchent ;-)

[Bruno75]

Celui qui est responsable de la destruction c'est le Owner défini quand tu fais
.Create(aOwner: TComponent);
Le .Parent c'est celui qui contient ton composant pour l'affichage. Par exemple, la propriété top positionne le composant par rapport au parent.

Code :

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

1
2
3
4
5
6
 
var 
  PPanel : TPanel 
begin 
PPanel := TPanel.Create(Form1); 
PPanel.Parent := Form1.ScrollBox1;

quand tu feras close, Form1 détruira ton panel. Par contre, ton panel sera affiché dans ton scrollbox1.

Pour voir ton scrollbox, il faut que tu rajoutes

Code :

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

1
2
 
ScrollBox1.Parent := Form1;

Et là ça devrait aller. Et tu devrais plutôt faire

Code :

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

1
2
 
PPanel := TPanel.Create(Form1.ScrollBox1);

ça parait plus logique