Discussion :

[michel71]

Bonjour,

est il possible d'accéder à l'indice d'un label sans passer par

lab[i]:=Tlabel.Create(Self);

j'ai essayé en écrivant ceci label[12] mais ça ne marche pas

Parceque je ne maitrise pas trop la création dynamique

Merci

[Aka Guymelef]

Euh c'est pas très clair... Déjà c'est quoi "lab" ?

[Archimède]

si c'est pour les indicer sous forme de tableau, tu fais :

Code :

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

1
2
 
TLabel(Findcomponent('Label'+inttostr(i)))

si i=1, ç'est équivalent à label1 etc...

[Archimède]

sinon pour une création dynamique avec tableau:
avec stdctrls dans les uses.

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
 
    lab:array[1..3] of Tlabel;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  for i:=1 to 3 do
    begin
    lab[i]:=Tlabel.Create(self);
          with lab[i] do
          begin
          Parent:=form1;
          Caption:='label'+inttostr(i);
          left:=100*(i-1);
          end;
  end;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var j:integer;
begin
for j:=1 to 3 do lab[j].Free;
end;
 
end.