Accéder à l'index d'un label

Version imprimable

06/03/2008, 14h53
michel71

Accéder à l'index d'un label

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
06/03/2008, 14h54
Aka Guymelef

Euh c'est pas très clair... Déjà c'est quoi "lab" ?
06/03/2008, 19h56
Archimède
si c'est pour les indicer sous forme de tableau, tu fais :
Code:

1 2 TLabel(Findcomponent('Label'+inttostr(i)))
si i=1, ç'est équivalent à label1 etc...
:D

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

Code:

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.