Implémentation de labels

Version imprimable

27/01/2007, 18h46
F1SFY

Implémentation de labels
Bonjour,

J'ai plusieurs 'label' dans une form et je voudrais les implémenter dans une boucle automatiquement du style :
Code:

1 2 3 4 5 for i:= 1 to 10 do begin form1.babel(i).caption:='eeee' end;
quelqu'un a t'il une idée ?

Merci Pascal

Réflex de VBiste çà, me trompe-je ?

Si tu veux "tourner" sur TOUS les labels de la form, tu peux faire ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  vIndice: Integer;
  vLabel: TLabel;
begin
  for vIndice := 0 to ComponentCount-1 do
    if Components[vIndice] is TLabel then
      begin
        vLabel := TLabel(Components[vIndice]);
        //...
      end;
end;

Si tu veux tourner sur des labels nommés avec un prefix, tu peux faire ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  vIndice: Integer;
  vLabel: TLabel;
begin
  for vIndice := 0 to ComponentCount-1 do
    if (Components[vIndice] is TLabel) and (Pos('prefix', Components[vIndice].Name)=1) then
      begin
        vLabel := TLabel(Components[vIndice]);
        //...
      end;
end;

28/01/2007, 12h34
F1SFY

Bonjour,

Merci beaucoup pour les exemples. Je pense pouvoir régler mon probleme. Toutefois je n'arrive pas à faire fonctionner le 2° exemple.

Pour info je faisais du clipper (sous dos) avant de passer à delphi.

Cordialement

Pascal