Discussion :

[Paul TOTH]

Vous savez qu'un composant peu avoir un Parent et/ou un Owner...petite question piège pour voir si vous avez tout suivi

avec le code ci-dessous, combien de boutons seront détruit lors de la destruction de la fenêtre ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Button2 : TButton;
    Button3 : TButton;
    Button4 : TButton;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm} // déclare TButton1
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button2 := TButton.Create(Self);
 
  Button3 := TButton.Create(Self);
  Button3.Parent := Self;
 
  Button4 := TButton.Create(nil);
  Button4.Parent := Self;
end;

[cincap]

J'aurai dit les 4 automatiquement avec

Dans le destroy button2.free;

@+,

Cincap

[Yurck]

Excusez moi d'avoir répondu je n'avais pas bien vu à qui était adressé ce petit sondage.
Du coup j'ai été surpris du résultat.
Le débutant ne répond pas il pose d'abord la question sur DVP après il conteste, et enfin il réfléchit

[Linkin]

Euh... idem

[cincap]

Button 2, 3 et 4 se créent, self indique comme propriétaire form1, button4 indique Nil donc pas de propriétaire !

Maintenant, je suis débutant j'ai peut être loupé quelque chose.

@+,

Cincap

[Paul TOTH]

Alors, je précise que la question se pose à tous, vu que je me suis fais avoir personnellement