Discussion :

[Julien_riquelme]

Bonjour,

Je voudrais programmer objet avec Delphi mais j'ai déjà un petit problème.
J'ai créé une classe qui comprend entre autres des TButton.
Je voudrais afficher ces TButton sur une form.
Comment faire car mon code ne marche pas... je ne vois pas l'erreur :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type  
 
 TInflas = class                       
    tab_boutons: array[1..10] of TButton;
    tab_etats: array[1..10] of String; 
    constructor Creation(endroit: TForm);
  end;
 
 
 TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
var
  Form1: TForm1;
  Inflas: TInflas;
 
implementation
 
{$R *.dfm}
 
 
constructor Tinflas.Creation(endroit: TForm);
begin
self.tab_boutons[1]:=TButton.Create(endroit);
self.tab_boutons[1].Visible:=true;
self.tab_boutons[1].Height:=120;
self.tab_boutons[1].Width:=200;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Inflas:=TInflas.Creation(form1);
 
end;
 
end.

Je suppose que c'est un problème bateau donc je m'excuse par avance de vous avoir fait perdre un peu de votre temps.
En tous cas, merci.
Cordialement.

[Pedro]

Salut
Effectivement c'est bateau :
Il faut que tu ajoutes:

Code :

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

1
2
3
4
 
...
self.tab_boutons[1].Parent:=endroit;
...

Note: le self n'est pas nécessaire... En revanche, lors de la création de TInflas, tu peux mettre:

Code :

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

1
2
 
Inflas:=TInflas.Creation(self);

Bon dev'

[neilbgr]

Par principe, on précise la visibilité des attributs :

Code :

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

1
2
3
4
5
6
 TInflas = class                       
  public  // <-- ICI
    tab_boutons: array[1..10] of TButton;
    tab_etats: array[1..10] of String;
    constructor Creation(endroit: TForm);
  end;

Ensuite, il ne faut pas oublier de préciser le Parent des tes boutons, donc dans le create :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
constructor Tinflas.Creation(endroit: TForm);
begin
  tab_boutons[1] :=TButton.Create(endroit);
  with tab_boutons[1] do
    begin
      Height:=120;
      Width:=200;
      Parent := endroit; // <-- ICI
      Visible:=true;
    end;
end;