(José Luis Freire)
Este es un ejemplo utilizando Label, se crea la matriz de etiquetas, de la misma forma podríamos cambiar el componente.
implementation Var Etiquetas : Array [1..8] of TLabel; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); Var x,y : integer; begin y:=0; for x:=0 to Length(Etiquetas)-1 do begin y:=y+30; Etiquetas[x]:= TLabel.Create(self); Etiquetas[x].left := 25; Etiquetas[x].top := y; Etiquetas[x].Width:=60; Etiquetas[x].Caption:='Etiqueta '+InttoStr(x); Etiquetas[x].Parent := self; end end;
Ważne artykuły