Quote:
Originally Posted by roman
¿Y si "lo que sea" depende del número de label?
// Saludos
|
Entonces utilizamos la propiedad Tag del Label.
Código Delphi
[-]
for i:=0 to ComponentCount -1 do
If (Components[i] Is TLabel) Then
Case TLabel(Components[i]).Tag of
1: TLabel(Components[i]).Caption := 'ponemos algo para tag 1';
2: TLabel(Components[i]).Caption := 'ponemos algo para tag 2';
3: TLabel(Components[i]).Caption := 'ponemos algo para tag 3';
.........
end;
Claro que antes colocando su repectivo número en la propiedad tag de cada label.
Saluditos